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Guida all'input dei programmi sullo ZX Spectrum 


Le " parole " compre se ira parentesi graffe indicano i caratteri grò fio pre- 
definiti (G). il tasto (numero seguente la G). lo necessità di premere il tasto 
insieme a CAPS S HIFT (eventuale $ precedente la G) e il numero di ripeti¬ 
zioni del tasto richieste (eventuale numero all'inizio dello "parola") I ca¬ 
ratteri grafici definiti dal programma sono invece indicati da lettere maiu 
scole (corrispondenti al tasto da usare) sottolineale 


Quando leggete Premete 


Vedrete 


{Gl} 


m 


m 

{G2} 
{G3 } 


1 2 

1 3 ffl 


m 

{G4 } 
{G5} 


1* u 

IUI 


m 

i 

{G6} 
{G7} 


ibi 


% 

4 

{G8} 


1® 1 I 


□ 

{SG1 } 


i — nr: — ì 



1 iHin I 

Il 13 

h 

{SG 2} 

Se non siete 
git in modo 

1 SiS 1 

EU 

a 

{SG3 } 

schiacciando 

contempcra- 

1 «A* 1 

1 SHIFT 1 

i 3 H 

m 

{SG4} 

{ SG 5 } 
{SG6 } 

reamente 
CAPS SHIFT 
e 9 

1 u«in 1 

1 tHirr 1 

1 ^ 1 

I s,nn | 

EJJ 

ri— rg 

r 

i 


U_ Ul 

I 6 w 

{SG7 } 


| a» | 

EH 

■ 

{SG8 } 


1 fA " 1 

1 NMIFT | 

HJJ 

■ 


St dogete 

uscire <t.il 

modo C. 
schiacciate 9 


Quando 


leggete | 


Premete 


Vedrete 


A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

O 

P 

Q 

R 

S 

T 

U 



Simbolo grafico 
definito nel 
programma in uso. 


Se dovete 
uscire dai 
modo C. 
schiacciate 9 


i. 


Guida per l'input dei programmi versioni VIC 20 e €64 


Notate che i listati contengono '‘parole" rac¬ 
chiuse tra parentesi graffe { }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico "solitario", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colorì. 


(CLR) 

{HOME} 
{SU] 
{GIU’} 
{SIN} 
{DES} 

{RVS} 
{OFF} 

{BLK } 
{WHT} 
{RED} 


SHIFT 


CIR/HOME 




CIR/HOME 



SHIFT 


li CRSR ii 

Il grigli 

[ SHIFT 


t=CRSR=*| 


C=CRSR =3 


ITTI Q 


CTRL 

1 □ 


CTRL 

ri 



CTRl 

r 



CTRl 

■■ j 



E 


e 


{CYN} 
{PUR] 
{GRN} 
{BLU} 

{yel} 
[< 1 >] 
[ < 2 > ] 

l<3>] 

l<4>] 

[<5>j 

l<6>] 


CTRL 



[ CTRl 

■ 5 J 

^■1 

’ 

| CTRL 

J 6 ] 


~. 


17] 




le] 


30 

30 

QQ 

30 

30 

30 



[<7>] 

a 

[<8>] 

□ 

{FI} 

□ 

{ F2 } 

si 

{F3 } 

□ 

{ E4 } 

15 

{ F 5 } 

S 

{ F6 } 

ol 

{F7 } 

E 

■1 

{ F8 } 


30 

n 

30 

■ ■ 
■ ■ 

m 

■l 

m 

ai 

tti 

5 

EO 

a 


n 

03 

SI 

EH 

■i 

HO 

■ 


2 
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Spectrum 
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18 
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Microdisegnatore 



Paddle e disco 


Finalmente l'era della grafica computerizza¬ 
ta è arrivata! Sfruttando lo schermo ad alta 
risoluzione dell'Appple potrete simulare l'uso 
del compasso, della riga e della mano libera 
per creare qualsiasi disegno desiderate, il 
tutto naturalmente in vivaci colon. Inoltre i 
disegni si possono memorizzare sul dischetto 
in qualunque momento per essere rielaborati 
in un secondo tempo. 

Il microdisegnatore è un tavoletta da disegno 
controllata delle paddle. Può lavorare in tre 
modi diversi: 

1. Compasso. Per tracciare cerchi, archi, spi¬ 
rali ed altre curve. 

2. Riga. Per tracciare linee retta tra i punti. 

3. A mano libera. 

Potete cambiare modo in qualsiasi momento 
premendo il tasto ESC. Premendo'CTRL £ si 
cancella il disegno mentre premendo CTRL S 
il disegno viene salvato su dischetto. Con 
CTRL Q si esce dal programma. 

Nel modo “compasso" il centro viene mosso 


5 LOMEM: 16384: HGR : TEXT : HO 
ME 

10 DIM X(2) ,Y(2) ,C$(7) ,D$(1) 

15 N5 = .5:NK = 128 :Kl = - 1638 

4 :K2 = - 1 6368:N6 = 6.2830853:N 

40 = 40.5851565:N140 = 140:N96 = 
96 :N27 = 2.7 :N0 = 0:NX = 280:NY 
= 160 :NR = 2.55 :SX = 1 .0941 :SY 
= . 6235 :XF = .84 

20 Z = 1.15 

25 C.= 195 :D = 196:M = 205:P = 2 
08:1 = 201 :J = 202:K = 203:ESC = 
155:CE = 133:CQ = 145:CS = 147: 
O = 207 

30 C$(l) = "GRIGIO":C$(2) = "VIO 
LA ":C$(3) = "WHITE2":C$(4) = "N 

ERO :C$(5) = "ORANGE":C$(6) = 

"BLU ":C$(7) = "WHITEl" 

35 D$(0) = "NO DIS":D$(1) = "SI 
DIS " 

40 CC = 7: HCOLOR= CC: GOSUB 400 
0 


usando i soliti tasti IJ K M. Premendo D si 
passa dal modo disegno o NON disegno. La 
pressione del tasto C fa cambiare il colore 
mentre premendo il tasto O si traccia un cer¬ 
chio completo... La paddle 0 cambia il raggio 
del compasso mentre la paddle I traccia il 
cerchio o la curva desiderati. 

Nel modo “riga'' la pressione del tasto D 
traccia una retta tra due punti mentre pre¬ 
mendo P si fissa il punto mobile e si può spo¬ 
stare l'altro punto. Le paddle muovono il 
punto mobile nella direzione X e Y. Premen¬ 
do C si cambia colore. La distanza tra i due 
punti e l'angolo della linea scelta vengono 
continuamente mostrati sullo schermo. 

Nel modo ‘ ‘mano libera ' ' le paddles muovo¬ 
no la posizione di disegno sullo schermo, 
mentre la pressione del tasto D commuta 
dalla posizione disegno alla posizione NON 
disegno. Premendo C si cambia colore e le 
posizioni X e Y vengono mostrate continua- 
mente sullo schermo. 

50 HOME : POKE - 16304,0:MODE 
= 1: GOTO 1000: REM NON CAMBIAR 
E 

100 KEY = PEEK (Kl): POKE K2,0 
110 IF MODE = 2 AND KEY = D THE 
N HPLOT X(1),Y(1) TO X(2),Y(2): 
RETURN 

120 IF KEY = D THEN DD = 1 - DD 
: RETURN 

130 IF KEY < > C THEN 160 

140 CC = CC + 1 : IF CC = 8 THEN 
CC = 1 

150 HCOLOR= CC: RETURN 
160 IF KEY < > ESC THEN 220 

170 IF MODE = 1 AND X > 0 AND X 
< 280 AND Y > 0 AND Y < 160 THE 
N HCOLOR= 0: HPLOT X,Y: HCOLOR= 
CC 

180 IF MODE = 2 THEN HCOLOR= 0 
: HPLOT X(1) ,Y ( 1) : HPLOT X(2),Y( 
2): HCOLOR= CC 

190 HOME : MODE = MODE +1: IF M 
ODE = 4 THEN MODE = 1 
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200 

POP 






21 0 

ON 

MODE 

GOTO 1000,2000, 

3000 

220 

IF 

MODE 

= 2 

AND KEY 

= P 

THE 

N PP 

= 3 

- PP 

: HCOLOR= 0: 

HPLOT 

X (PP) 

,Y (PP) : 

HCOLOR= CC: 

RETURN 

230 

IF 

MODE 

< 

> 1 THEN 

290 


240 

IF 

KEY = 

J 

THEN CX = 

CX 

- 4 

250 

IF 

KEY = 

K 

THEN CX = 

CX 

+ 4 

260 

IF 

KEY = 

I 

THEN CY = 

CY 

- 4 

270 

IF 

KEY = 

M 

THEN CY = 

CY 

+ 4 

280 

HTAB 31 : 

PRINT " 


ti. 
t 


tuv ninu j i • ciMni f 

: HTAB 3]: PRINT CX;",";160 - CY 


/ 


290 

IF KEY 

= 

CE 

THEN 

HGR : 

RET 

URN 






(. 

300 

IF KEY 

= 

CQ 

THEN 

TEXT 

: HO 

ME : 

END 






31 0 

IF KEY 

= 

CS 

THEN 

GOTO 

5500 

320 

IF KEY 

< 

> 

O THEN 

360 


330 

S = 50 / 

(R 

+ 1) 



340 

• FOR II 

= 

0 

TO 2 55 

STEP 

S : A 

= N6 

- II / 

N40 : 

X = Z * 

(CX 

+ R 

* SIN (A) ) : 

Y 

= 

CY + R 

* COS (A 


): IF X > NO AND X < NX AND Y > 
NO AND Y < NY THEN HPLOT X,Y 
350 NEXT 
360 RETURN 

1000 CX = INT (140 / Z):CY = 80 
: DD = 0 

1010 VTAB 21: INVERSE : PRINT " 
COMPASSO";: NORMAL : HTAB 12: PR 
INT "RAGGIO:";: HTAB 24: PRINT " 
CENTRO:";CX;160 - CY 
1020 VTAB 22: PRINT "D: 

O:DISEGNA ! SPOSTA I C: 

CERCHIO ! CENTRO 
J+K ESC:CAMBIA MODO COMPLETO! 
COMPASSO M"; 

1030 VTAB 22: HTAB 3: PRINT D$( 
DD) ; : VTAB 23: HTAB 3: PRINT C$( 
CC) ; : VTAB 21 

1040 R = PDL (0) / NR:A = N6 ^ 
PDL (1) / N40: X = Z * (CX + R * 
SIN (A)):Y = CY + R * COS (A) 

: IF DD THEN 1060 

1050 HCOLOR= 0: HPLOT XO,YO: HC 
OLOR= CC 

1060 IF X > NO AND X < NX AND Y 
> NO AND Y < NY THEN HPLOT X,Y 
: XO = X:YO = Y 

1070 HTAB 19: PRINT INT (R + N 
5);" ";: IF PEEK (K1) < NK THE 

N 1040 


1080 GOSUB 100: GOTO 1030 
2000 PP = 1 

2010 VTAB 21: INVERSE : PRINT " 
LINEE RETTE ";: NORMAL : HTAB 19 
: PRINT "LUNGH.:";: HTAB 31: PRI 
NT "ANG. :"; 

2020 VTAB 22: HTAB 1: PRINT "D: 
DIS LINEA P: FISSA P. 

FINALEC: 

E SPOSTA ALTROESC:CAMBIA MODO 
PUNTO FINALE"; 

2030 VTAB 23: HTAB 3: PRINT C$( 
CC); : VTAB 21 

2040 X(3 - PP) = PDL (0) * SX:Y 

(3 - PP) = PDL (1) * SY 

2050 X(PP) = PDL (0) * SX:Y(PP) 

= PDL (1) * SY: HPLOT X(3 - PP 

),Y(3 - PP): HCOLOR= 0: HPLOT XO 
,YO: HCOLOR= CC:XO = X(PP):YO = 

Y(PP): HPLOT XO,YO 

2060 X = XF * ABS (X(1) - X(2)) 

:Y = ABS (Y(1) - Y(2)):L = INT 
( SQR (X * X + Y * Y) + N5): IF 
X < .00001 THEN A = 90: GOTO 20 
80 

2070 A = INT ( ATN (Y / X) * 57 
.2958 + .5) 

2080 HTAB 26: PRINT L;" ";: HT 

AB 37: PRINT A;" ";: IF PEEK (K 
1) < NK THEN 2050 

2090 GOSUB 100: VTAB 23: HTAB 3 
: PRINT C$(CC); : VTAB 21: GOTO 2 
040 

3000 VTAB 21 : JNVERSE : PRINT " 
A MANO LIBERA";: NORMAL : HTAB 2 
0: PRINT "X="; : HTAB 30: PRINT " 

Y= " • 

3010 VTAB 22: HTAB 1: PRINT "D: 
": PRINT "C:": PRINT "ESC:CAMBIO 
MODALITÀ'"; 

3020 VTAB 22: HTAB 3: PRINT D$( 
DD);: VTAB 23: HTAB 3: PRINT C$( 
CC); : VTAB 21 

3030 X = PDL (0) * SX:Y = PDL 
(1) * SY:YP = 159 - Y: HTAB 22: 

PRINT INT (X / Z);" ";: HTAB 3 

2: PRINT INT (Y);" ";: IF DD T 

HEN 3050 

3040 HCOLOR= 0: HPLOT XO,YO: HC 
OLOR= CC 

3050 HPLOT X,YP:XO = X:YO = YP: 

IF PEEK (Kl) < NK THEN 3030 
3060 GOSUB 100: GOTO 3020 
4000 HOME : VTAB 10: PRINT TAB 
( 5)"M I CRO - D I S E GN A T 
O R E" 

4010 FOR II = 1 TO 1000: NEXT I 
I 
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4340 POKE K2,0 : POKE 32,8: POKE 
33,40: NORMAL 

4350 HOME : VTAB 3: PRINT "VOLE 
TE CARICARE DA DISCO UN DISEGNO 
": PRINT "SALVATO IN PRECEDENZA? 


(S/N) 

"; : GET 

x$ 



4360 

IF X$ < 

> "S" AND X$ 

< 

> 

"N" THEN 4350 




4370 

IF X$ = 

"S" THEN 5000 



4380 

RETURN 




5000 

PRINT : 

PRINT : PRINT 



5020 

PRINT "INSERIRE DISCO 

E 

DI 


GITARE NOME DEL FILE:": PRINT : 
INPUT " > ";F$ 

5030 PRINT CHR$ (4);"BLOAD";F$ 

5040 PRINT : PRINT "PREMERE UN 
TASTO PER CONTINUARE. . GET 

X$: GOTO 4380 


5500 REM 

5520 HOME : VTAB 21 : PRINT "INS 
ERIRE DISCHI E DIGITARE IL NOME 
FILE": PRINT : INPUT " > ";F$ 

5530 PRINT CHR$ (4);"BSAVE";F$ 
;",A$ 2000,L$1FFF" 

5540 PRINT : PRINT "PREMERE UN 
TASTO PER CONTINUARE.";: GET X$ 
5550 HOME : ON MODE GOTO 1000,2 
000,3000 

6000 POKE - 16304,0: HOME : ON 
MODE GOTO 1000,2000,3000: REM 
NON MODIFICARE 

7000 IF PEEK (Kl) < NK THEN 70 
00 

7010 POKE K2,0 : VTAB 1: HTAB 1: 

INVERSE : FOR II = 1 TO 21 : PRI 
NT SPC( 39);: NEXT II 
7020 RETURN 






m cippkz 

WBMMB- 

—Hshdmim ..— 

Disco 

) 


Ecco un programma che vi permetterà di 
stampare il contenuto di qualsiasi pie su 
schermo, stampante o qualsiasi altro dispo¬ 
sitivo di output, il programma vi chiede dap¬ 
prima quale tipo di disco avete (DOS 3.3 op¬ 
pure Pascal) e poi chiede il nome del pie. Se 
non sapete il nome del pie premendo RE¬ 
TURN vi verrà mostrata la lista dei pie pre¬ 
senti sul dischetto. Il dump dei dati può esse- 

5 DIM A(150),B(150):BU = 16384: 
GOSUB 9000 

10 TEXT : HOME : VTAB 7 : PRINT 
"TIPO DI DISCO": PRINT : PRINT " 
1. DOS 3.3": PRINT "2. PASCAL": 
PRINT "3. FINE": PRINT : PRINT : 

PRINT "SCELTA: "; : GET A$: PRIN 
T A$:A = VAL (A$): IF A < 1 OR 
A > 3 THEN 10 
20 IF A = 3 THEN END 
81 PRINT : PRINT "SLOT USATO PE 
R L'OUTPUT?";: GET A$: PRINT A$: 
SL = VAL (A$): IF SL < 0 OR SL 
> 7 THEN 81 

85 PRINT : PRINT "’HEX' OPPURE 
'ASCII'?";: GET HE$: PRINT HE$:H 


re sia "es adecimale” che "ASCII". Se il pie 
non è contituito da testo puro e semplice, la¬ 
vorando in ASCII, la vostra stampante po¬ 
trebbe comportarsi in modo strano. In modo 
es adecimale potrete vedere il contenuto di fi¬ 
le di qualsiasi tipo perché ogni byte del pie 
stesso verrà scomposto nelle due cifre esade- 
cimali ad esso equivalenti. 


E = 0: IF HE$ = "H" THEN HE = 1 
90 TEXT : HOME : PRINT "INSERIR 
E IL DISCO": PRINT : PRINT "NOME 
FILE?": PRINT : PRINT "<RETURN> 
PER AVERE IL CATALOG": INPUT B$ 
:A$ = "":CF = 0: IF LEN (B$) = 

0 THEN CF = 1 : GOTO 1 1 0 

110 HOME : VTAB 7: PRINT "LETTU 

RA DEL CATALOG_": ON A GOSUB 

1000,2000: PRINT : PRINT : INPUT 
"PREMI <RETURN>";A$: GOTO 10: E 
ND 

900 HI = INT (H / 16) : LO = H - 
HI * 16 :D = HI: GOSUB 950 :A$ = H 
$ :D = LO: GOSUB 950:A$ = A$ + H$ 
+ " ": RETURN 
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950 IF D < 10 THEN H$ = STR$ ( 
D) : RETURN 

960 H$ = CHR$ (D + 55): RETURN 

1000 IF B$ = THEN 1005 
1002 FOR I = 1 TO LEN (B$):A$ 

= A$ + CHR$ ( ASC ( MID$ (B$,I, 
1 )) + 1 28) : NEXT 
1005 POKE 780,17: POKE 785,64: 
FOR C = 1 5 TO 2 STEP - 1 : POKE 
781 ,C: CALL 768: FOR Y = 0 TO 6 : 
E$ = "":EN = 16395 + Y * 35:Q = 
PEEK (EN): IF Q = 0 THEN C = 2: 
Y = 6: GOTO 1070 

1030 FOR X = EN + 3 TO EN + 32: 
E$ = E$ + CHR$ ( PEEK (X)): NEX 
T : IF CF THEN PRINT E$: GOTO 1 
070 

1065 IF A$ = LEFT$ (E$, LEN (A 
$)) THEN 1100 
1070 NEXT : NEXT 
1085 IF CF THEN RETURN 
1090 FLASH : PRINT : PRINT "NON 
TROVATO": NORMAL : RETURN 
1100 POKE 780, PEEK (EN): POKE 
781, PEEK (EN +1): CALL 768 :J = 
0 : FOR I = 0 TO 1 21 
1135 IF I > 121 THEN 1170 
1140 A = 1*2+12+ BU: IF PE 
EK (A) = 0 THEN I = I + 1 : GOTO 

1 1 35 

1155 J = J + 1:A(J) = PEEK (A): 
B(J) = PEEK (A + 1 ) 

1170 NEXT :U = J: PRINT : PRINT 
CHR$ (4)"PR#"SL: FOR J = 1 TO 
U: POKE 780,A(J): POKE 781,B(J): 

CALL 768: FOR I = 0 TO 255:A = 
BU + I: IF HE THEN H = PEEK (A) 

: GOSUB 900: PRINT A$; : GOTO 123 
0 

1 220 PRINT CHR$ ( PEEK (A)); 
1230 NEXT : NEXT : PRINT : PRIN 
T CHR$ (4)"PR#0": RETURN 
2000 REM PASCAL 
2005 A$ = B$ 

2010 POKE 780,0i FOR C = 11 TO 
4 STEP - 2: POKE 781,C: POKE 78 
5,64: CALL 768: POKE 781 ,C - l': 
POKE 785,65: CALL 768:EN = BU + 
26 

2030 SB = PEEK (EN) + PEEK (EN 
+ 1) * 256:EB = PEEK (EN + 2) 

+ PEEK (EN + 3) * 2 56 : LG = PEE 

K (EN + 6):E$ = "": IF LG = 0 TH 
EN 2100 

2060 FOR I = EN + 7 TO EN + 7 + 
LG - 1:E$ = E$ + CHR$ ( PEEK ( 
I)): NEXT : IF CF THEN PRINT E$ 

: GOTO 2100 


2090 IF A$ = E$ THEN 2200 
2100 EN = EN + 26: IF EN < BU + 
512 - 26 THEN 2030 
2110 NEXT : GOTO 1085 
2200 PRINT : PRINT CHR$ (4)"PR 
#"SL:T = INT (SB / 8):S = SB - 
T * 8 :Tl = INT (EB / 8):Sl = EB 
- Tl * 8:S2 = Si :T1 = Tl - 1 : F 
OR I = T TO Tl :S3 = SI : IF Tl > 

I THEN S3 = 7 

2250 FOR J = S2 TO S3: POKE 785 
,64: POKE 780,1: POKE 781,TS(0,J 
): CALL 768: GOSUB 2470: POKE 78 
0,1: POKE 781,TS(1,J): CALL 768: 

GOSUB 2470: NEXT :S2 = 0: NEXT 
: PRINT : PRINT CHR$ (4)"PR#0": 
RETURN 

2470 FOR K = 0 TO 255:A = BU + 
K: IF HE THEN H = PEEK (A): GOS 
UB 900: PRINT A$; : GOTO 2490 


2485 

PRINT 

CHR$ ( PEEK (A)); 

2490 

NEXT 

: RETURN 

9000 

FOR I 

= 768 TO 805 

901 0 

READ 

A: POKE I,A: NEXT 

901 1 

FOR I 

= 0 TO 7: FOR J = 0 

TO 1 : 

READ 

TS(J,I): NEXT J,I 

901 5 

RETURN 

9020 

DATA 

169,3,160,8,32,217,3 

,96,1 

,96 


9030 

DATA 

1 ,0,1 7,1 5,30,3,0,64 , 

0,0 



9040 

DATA 

1,0,254,96,1,0,0,0,0 

,0 



9050 

DATA 

0,1,239,216,0,0,0,0 

9060 

DATA 

0,14,13,12,11,10,9,8 

,7,6, 

5,4,3, 

2,1,15 
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Extended Basic 






Ora di punta 


Tempo fa a Milano è stato bandito un corso 
per qualche posto di vigile urbano per il quale 
si sono candidate circa tremila persone. 

Beh, se avrete la pazienza di digitare il lista¬ 
to di questo gioco in Extended Basic per il vo¬ 
stro TI-99, uno di quei posti sarà sicuramen¬ 
te vostro nel prossimo concorso. 

Vi troverete di fronte, infatti, una serie di in¬ 
croci con strade e semafori di ogni genere ed 
un traffico automobilistico da ora di punta, 
appunto. 

Il vostro compito sarà quello di fare in modo 
di dare il via libera al maggior numero di au¬ 
to possibili evitando in qualsiasi modo gli 
scontri più o meno frontali; per fare ciò do- 

100 ! ********************** 
no ! ** ORA DI PUNTA ** 

120 ! ********************** 

1 30 ! 

140 ! 

150 AW=40 :: DIM CX(40),CY(40),C 
R(40),PX(37),PY(37),P$(37),AX(3) 

, AY(3),FX(9),FY(9) 

160 RESTORE : : CALL CLEAR : : CAL 
L CHARSET :: CALL SCREEN(15):: P 
U=1 00 

170 FOR 1=0 TO 40 :: CR(I)=0 :: 
NEXT I 

180 TIME=0 :: TL=0 :: AF=0 

190 FOR 1=32 TO 44 :: READ X$ :: 

CALL CHAR(I,X$) : : NEXT I 
200 DATA "55AA55AA55AA55AA","252 
A2 5EAE52A2 52A","55AA5500FF181818 
","54A454A757A454A4","181818FF00 
AA55AA" 



vrete azionare i semafori premendo il tasto 
corrispondente (visualizzato sullo schermo 
accanto all'Incrocio) una o più volte a secon¬ 
da se lo si vuole verde o rosso (non perdete 
tempo a cercare di farlo diventare giallo!). 
Partirete con un Bonus di 100 punti al quale 
saranno aggiunti IO punti per ogni macchina 
che attraverserà un incrocio e 25 per ogni 
auto che uscirà senza intoppi dalla città. Vi 
verranno però tolti 100 punti se provocherete 
uno scontro fra due auto, per non contare la 
strada temporaneamente bloccata... 
Insomma, divertitevi a stare un po' voi dalla 
parte del vigile, una volta tanto, evitando di 
combinare disastri. 

210 DATA "1818181818181818" ,"000 
000FFFF000000","181818FFFF181818 

Il f " ppppppppppppppp " 

220 DATA "0F0F0F0F0F0F0F0F","FOF 
OFOFOFOFOFOFO","OOOOOOOOFFFFFFFF 
" ,"FFFFFFFFOOOOOOOO" 

230 FOR 1=48 TO 95 :: CALL CHARP 
AT(I,X$): : CALL CHAR(48+1,X$): : 
NEXT I 

240 CALL COLORO ,16,2) ! ROADS 
250 CALL COLOR(2,6,2)! CARS 

260 FOR 1 = 3 TO 8 :: CALL COLORO 
,2,7):: CALL COLOR(6 + 1,2,4): : NE 
XT I ! TRAFFIC LIGHTS 
2 70 CALL HCHAR(5,1 ,38,32) : : CALL 
HCHAR(1 3,5, 38,24) : : CALL HCHAR( 
20,1,38,32) 

2 80 CALL VCHAR(1 , 5, 37,24) : : CALL 
VCHAR(5,13,37,8): : CALL VCHAR(5 
,20,37,16):: CALL VCHAR(1,28,37, 
24) 

290 FOR 1=1 TO 17 :: READ X,Y,CH 
:: CALL HCHAR(Y,X,CH): : NEXT I 

300 DATA 13,4,34,20,4,34,5,5,39, 

13,5,39,20,5,39,28,5,39 

310 DATA 4,13,35,5,13,39,13,13,3 

9,20,13,39,28,13,39,29,13,33,13, 

14.36 

320 DATA 5,20,39,20,20,39,28,20, 

39.20.21.36 
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330 FOR 1=0 TO 37 :: READ PX(I), 
PY(I) ,P$(I) : : CALL HCHAR(PY(I),P 
X(I) ,ASC(P$(I))) : : NEXT I 
340 DATA 4,3,A,27,3,B,7,4,C,15,4 
,D,22,4,E,30,4,F,3,6,G,11,6,H,18 

,6,1,26,6,J 

350 DATA 6,7,K,14,7,L,21,7,M,29, 
7,N,4,11,0,12,11,P,19,11,Q, 27,11 

r R 

360 DATA 7,12,S,-15,12,T,22,12,U, 
11,14,V,18,14,W,26,14,X,6,15,Y,2 
1,15,Z,29,15,0 

370 DATA 4,8,1,19,18,2,27,18,3,7 
,19,4,22,19,5,30,19,6,3,21,7,18, 
21,8,26,21,9,6,22,<,29,22,> 

380 X$="ORA_DI_PUNTA" :: DISPLAY 
AT(2,8):X$; 

390 DISPLAY AT(16,7):"POSSIEDI"; 
:: DISPLAY AT(17,6):"100 PUNTI"; 

400 RANDOMIZE 

410 DEF FNR(X)=INT(RND*X) 

420 AX(0)=1 :: AX(1)=-1 :: AY(2) 

=1 :: AY(3)=-l 

430 FOR 1=0 TO AW :: R=CR(I):: G 
OSUB 1040 :: IF R=0 THEN 530 
440 X=CX(I): : Y=CY(I) 

450 IF R AND 1 THEN X=X+1 :: F=4 

3 :: 00=44 :: 0=38 SX=0 :: SY 

= 1 : : IF X>32 THEN 570 

460 IF R AND 2 THEN X=X-1 :: F=4 

4 :: 00=43 :: 0=38 :: SX=0 :: SY 
= -l : : IF X<1 THEN 570 

470 IF R AND 4 THEN Y=Y+1 :: F=4 

2 :: 00=41 :: 0=37 :: SX=-1 :: S 

Y=0 :: IF Y>24 THEN 570 

480 IF R AND 8 THEN Y=Y-1 :: F=4 

1 :: 00=42 :: 0=37 :: SX=1 :: SY 

=0 :: IF Y<1 THEN 570 

490 IF R AND 16 THEN 540 

500 IF R AND 32 THEN 650 

510 IF R AND 64 THEN 0=39 :: R=R 

-64 :: CR(I)=R :: PU=PU+10 

520 GOTO 580 

530 NEXT I : : GOTO 750 

540 CALL GCHAR(CY(I)+SY,CX(I)+SX 

,LIGHT) 

550 IF LIGHT>95 THEN CR(I)=(R OR 
32)AND NOT 16 :: GOTO 580 
560 PU=PU-1 :: GOTO 530 
570 PU=PU+25 :: PN=PN+1 :: CR(I) 
=0 :: GOTO 640 

580 CALL GCHAR(Y,X,PS) : : IF PS = F 
OR PS=40 THEN PU=PU-1 :: GOTO 5 
30 

590 CALL GCHAR(Y+SY,X+SX,A) : : IF 
A<>32 THEN CR(I)=R OR 16 
600 IF PS=O0 THEN F=40 
610 CALL GCHAR(CY(I) ,CX(I) ,V) : : 
IF V=40 THEN 0=00 


620 IF V=32 THEN CR(I)=0 :: AO=A 
O+l :: PU=PU-100 :: GOTO 530 
630 CALL HCHAR(Y,X,F) 

640 CALL HCHAR(CY(I) ,CX(I) ,0): : 
CX(I)=X :: CY(I)=Y :: GOTO 530 
650 CALL GCHAR(Y,X,A) : : IF A=F T 
HEN 530 

660 IF A<>39 THEN 720 

670 VB=0 :: FOR J=0 TO 3 : : A=2~ 

J :: CALL GCHAR(Y+AY(J),X+AX(J), 

B) : : IF NOT(B=38 OR B=37)THEN VB 
=VB OR A 
680 NEXT J 

690 B=2"FNR(4) : : IF (B AND VB)=0 
THEN CR(I)=B OR 64 :: GOTO 630 

700 IF VB=15 THEN 530 
710 GOTO 690 

720 AO=AO+1 :: CR(I)=0 :: IF A<> 
32 THEN FX(AF)=X :: FY(AF)=Y :: 
AF=AF+1 :: PU=PU-100 
730 F=32 :: CALL SOUND(4000,-6,0 
) 

740 GOTO 630 

750 IF CR(TL)=0 THEN 780 
760 TL=TL+1 : : IF TL>AW THEN TL= 
0 

770 GOTO 870 

780 A=FNR ( 4 ) : : CR(TL)=2' s A :: ON 
A+l GOTO 790,800,810,820 
790 CX(TL)=1 :: GOTO 830 
800 CX(TL)=32 :: GOTO 830 
810 CY(TL)=1 :: GOTO 850 

820 CY(TL)=24 :: GOTO 850 
830 IF FNR(2)=1 THEN CY(TL)=5 :: 
GOTO 870 

840 CY(TL)=20 :: GOTO 870 
850 IF FNR(2)=1 THEN CX(TL)=5 :: 
GOTO 870 

860 CX(TL)=28 :: GOTO 870 

870 REM TIME CONTROL 

880 IF PU<0 THEN PU=0 

890 DISPLAY AT(17,5):USING "#### 

" : PU; 

900 IF PU=0 THEN 970 

910 TIME=TIME+1 :: IF TIME>100 T 

HEN 970 

920 IF FNR(25)>0 OR AF=0 THEN 96 
0 

930 CALL HCHAR(FY(0),FX(0),39) 

940 FOR 1 = 0 TO 8 : : FY(I)=FY(I + 1 
):: FX(I)=FX(1 + 1): : NEXT I 
950 AF=AF-1 
960 GOTO 430 

970 IF PU=0 THEN CALL SOUND(4000 
,-1,0):: GOTO 990 
980 FOR 1 = 1 TO 5 : : CALL SOUND(1 
000,698,0):: CALL SOUND(1000,784 
,0):: CALL SOUND (1000,880,0) :: N 
EXT I 
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990 DISPLAY AT(2,6):"TENTI_ANCOR 
A?_S;N S ACCEPT AT(2,25)SI 

ZE(-1)VALIDATE("SN"):A$ 

1000 IF A$="N" THEN 1020 
1010 GOTO 160 

1020 CALL CLEAR :: CALL CHARSET 
1030 PRINT "POSSIEDI";PU;"PUNTI" 
: : END 

1040 ! SUBROUTINE TASTO PREMUTO 
1050 CALL KEY(0,LIGHT,CH) 

1060 IF CHOl THEN RETURN 
1070 IF LIGHT>64 AND LIGHT<91 TH 
EN NR=LIGHT-65 :: GOTO 1120 
1 080 IF LIGHT>47 AND LIGHT<58 TH 
EN NR=LIGHT-22 :: GOTO 1120 


1090 IF LIGHT=44 THEN NR=36 :: G 
OTO 1120 

1100 IF LIGHT=46 THEN NR=37 :: G 
OTO 1120 

1110 RETURN 

1120 CALL GCHAR(PY(NR),PX(NR),CO 
LLIGHT) 

1130 IF COLLIGHT>95 THEN NEWCH=C 
OLLIGHT-48 :: GOTO 1150 

1140 NEWCH = COLLIGHT+48 

1150 CALL HCHAR(PY(NR),PX(NR),NE 

WCH) 

lì 60 CALL SOUND(-200,1 047,0) 

1170 RETURN 






TI-99/4A 


Space patrol 



Extended Basic 



La terra è stata attaccata! Un pianeta alieno 
cerca di conquistare il controllo del sistema 
solare. 

Naturalmente occorrono i migliori combat¬ 
tenti per arginare l'attacco, ed è per questo 
motivo che ci rivolgiamo a te. 

Ti viene affidato il comando di un 'astronave 
da combattimento che purtroppo non può 
competere alla pan con i satelliti nemici ma 
che, se ben controllata, compie sufficiente- 
mente il proprio dovere. 

Al momento della partenza avrete a disposi¬ 
zione 400 unità-energia oltre, naturalmente, 
al laser di cui avrete bisogno per adempiere 
al vostro compito: abbattere almeno 15 
astronavi nemiche per rallentare l'invasione! 
Attenzione, però: gli Alieni dispongono di un 

100 REM **************** 

110 REM * SPACE PATROL * 

120 REM **************** 

130 REM TI-99/4a ext.basic 
140 REM 

150 CALL CLEAR :: CALL SCREEN(2) 

160 FOR X=0 TO 8 : : CALL COLOR(X 
,16,1) : : NEXT X 


certo numero di satelliti killer che si dirige¬ 
ranno contro di voi e che vi esploderanno ac¬ 
canto quando meno ve lo aspettate. L'unico 
modo per compiere la vostra missione è 
quindi quello di colpire (usando il tasto rosso 
dei Joystick, o il tasto -a-) ogni oggetto in mo¬ 
vimento nel vostro campo visivo, utilizzando 
il mirino del vostro cannone-laser che potrete 
direzionare con un Joystick o con i tasti con 
le frecce. 

Attenzione a non sprecare troppi colpi a vuo¬ 
to: ogni sparo vi costerà 10 unità-energia, ed 
ogni esplosione ravvicinata di satelliti-killer 
ben 50 unità! 

In bocca al lupo, quindi, con questo avvin¬ 
cente gioco per l'Extended Basic del vostro 
TI-99 dotato di due livelli di difficoltà. 

170 DISPLAY AT(9,4)BEEP:"*** SPA 
CE PATROL ***" 

180 CALL CHAR(112, "0000000000000 
10P01000000000000000000000000008 
0c08000000000000000") ! SHOT 

190 CALL CHAR(116,"0209200421 880 
15000128020044080020084400210800 
248100240094011080")!EXP 


IO 








200 CALL CHAR(104,"1500400040004 
00040004000400015005400010001000 
1000100010001005400")!GUN SIGHT 

210 CALL CHAR(103,"0000001 8") : : 
CALL CHARdll ,"0000001 : CALL 

CHAR(95,"0000001 01 ") 1STARS 
220 TR$(1)="000000003848888F8F88 
48380000000000000000181412F1F214 
181000000000" 

230 TR$(2)="014141417F717F7F477F 
4 04 04 04 000 0080 82 82 8 2FE8EFEFEE2FE 
020202020000" 

240 TR$(3)="OOOOOEOEOEOEOEOE3F7F 
CECE7F3F1F000000707070707070FCFE 
7373FEFCF800" 

250 TR$(4)="0101010207E1919F9F90 
Fi 607F000000 80 80 804 0E0 8F91FI Fili 
8F06FE000000" 

260 CALL CHAR(124,"0000000000000 
20101020000000000000000000000004 
0808040000000000000")!Kl 
270 CALL CHAR(128,"0000040D03060 
7030D04000000000000000020B0C0E06 
0C0B020000000000000")1K2 
280 CALL CHAR(132,"000C0D03070E0 
7030D0C0000000000000098D8E070B87 
0E0D898000000000000")!K3 
290 CALL CHAR(136,"006061130F0F1 
E3CAE1D0F0F13616000000686C8F0F0B 
97C3C78F0F0C8860600")!K4 
300 CALL CHAR(140,"C0C1271 FiF3A3 
D7A7A3D321FiF27C1C00383E4F85CBC5 
E5EAC5CF8F8E48303")!K5 
310 CALL CLEAR 

320 DISPLAY AT(1,10):"SCEGLI IL 
MEZZO DI GUIDA:": :" 1 JOYSTIC 

KS": :" 2 TASTIERA--TASTI/FREC 

CE": :" ED ’Q' PER SPARAR 

E" 

330 CALL KEY(0,KEY,STAT) : : IF (K 
EY< 49) + (KEY>50)=-1 THEN 330 ELSE 
INP=KEY-4 8 

340 IF INPOI THEN 360 
350 DISPLAY AT(20,1):"RICORDA:-A 
LPHA LOCK-ALZATO CON I JOYSTICK 
S!" :: FOR TD=1 TO 700 :: NEXT T 
D : : CALL CLEAR 

360 CALL CLEAR :: LB=400 :: SD=0 
:: RANDOMIZE 

370 DISPLAY AT(10,1):"SCEGLI IL 
LIVELLO DI GIOCO:": :" 1 DIFFI 

CILE": :" 2 FACILE" 

380 CALL KEY(0,KEY,STAT): : IF (K 
EY<49)+(KEY>50)=-l THEN 380 ELSE 
SK=KEY-48 

390 CALL MAGNIFY(SK+2) : : CALL CL 
EAR 

400 CALL COLOR(8,16,1,9,11,1,10, 
3,1) 


410 FOR X=1 TO 40 :: CALL HCHAR( 
INT(23*RND+1),INT(26*RND+3),INT( 
3*RND+1)*8+87) : : NEXT X 
420 CALL SPRITE(#1,104,16,98,130 
) 

430 DISPLAY AT(23,1):"ASTRONAVI 
DISTRUTTE";SD:"UNITA'-ENERGIA RE 
SIDUE=";LB 

440 TAR=INT(6*RND)+1 :: IF TAR>4 

THEN 600 :: CALL CHAR(120,TR$(T 
AR) ) 

4 50 FOR L=1 TO 4 : : CALL COLOR(I 
NT(2*RND+9) ,INT(11*RND+3) ,1): : N 
EXT L 

460 VM=INT(RND*1 9)-9 :: HM=INT(3 
8*RND)- 19 :: IF VM=0 OR HM=0 THE 
N 460 

470 CALL SPRITE(#3,120,INT(14*RN 
D+3),210,INT(256*RND)+1,VM,HM) 
480 ON INP GOSUB 890,900 
490 CALL KEY ( 1 , K, S) : : IF KOI 8 T 
HEN 480 :: CALL MOTION(#1,0,0) 
500 CALL SOUND(300,1800,2,2300,2 
,2800,2):: CALL COINC(ALL,HIT) 
510 CALL PATTERN(#1 ,112) : : CALL 
COLOR(#1,7) 

520 IF HIT THEN 540 :: LB=LB-10 

530 CALL COLOR(#1 ,16) : : CALL PAT 
TERN(#1,104) : : DISPLAY AT(24,25) 

:LB :: IF LB<10 THEN 800 ELSE 48 
0 

540 CALL PATTERN(#3,116) : : CALL 
COLOR(# 3,7,#1 ,1) 

550 SD=SD+1 :: LB=LB-10 

560 CALL SOUND(200,-7,5) : : CALL 

SOUND(700,-7,2) 

570 FOR L=1 TO 80 :: NEXT L :: C 
ALL DELSPRITE(#3) 

580 DISPLAY AT(23,21):SD :: DISP 
LAY AT(24,25):LB :: CALL COLOR(# 
1,16):: IF SD>14 THEN 830 :: IF 
LBC10 THEN 800 

590 CALL PATTERN(#1,104): : GOTO 
440 

600 FOR L=1 TO 4 : : DISPLAY AT(1 
,9):"**-WARNING-**" :: CALL SOUN 
D(1 00,600,0,700,0,-2,0): : FOR D= 
1 TO 30 : : NEXT D 

610 DISPLAY AT(1,9):" " :: FOR D 
=1 TO 20 :: NEXT D :: NEXT L 
620 CALL SPRITE(#3,124,4,INT(80* 
RND+20) ,INT(100 *RND+80) ,2,2) 

6 30 FOR ATT=1 TO 5 : : CALL PATTE 
RN(#3,ATT*4+120) 

640 FOR D=1 TO 4 

650 ON INP GOSUB 890,900 

660 CALL KEY(1,K,S):: IF K=18 TH 

EN 690 

670 NEXT D 


680 GOTO 720 

690 CALL MOTION(#1 ,0,0) : : CALL S 
OUND(300,1 800,2,2300,2,2 800,2) :: 

CALL COINC(#l,#3,SK*5,HIT) 

700 CALL PATTERN(#1 ,112): : CALL 
COLOR(#1,7):: IF HIT THEN 760 :: 
LB=LB-10 

710 CALL COLOR(#1 ,16) : : CALL PAT 
TERN(#1 ,1 04) : : DISPLAY AT(24,25) 

:LB :: IF LBC10 THEN 800 
720 NEXT ATT 

730 CALL DELSPRITE(#1) : : CALL MA 
GNIFY(4) : : CALL PATTERN(#3,116) 

740 CALL SOUND(1700,-7,0):: FOR 
D= 1 TO 30 :: CALL SCREEN(7):: CA 
LL0SCREEN(10) : : NEXT D :: CALL S 
CREEN(2) 

750 CALL DELSPRITE(#3) : : CALL MA 
GNIFY(SK+2) : : LB=LB-50 :: DISPLA 
Y AT(24,25):LB :: IF LB<=0 THEN 
770 ELSE 420 

760 CALL PATTERN(#3,116):: CALL 
COLOR(#3,7,#1,1):: LB=LB-10 :: G 
OTO 560 

770 CALL DELSPRITE(#1 ,#3) : : CALL 
SOUND(1000,110,0,130,0,150,0) 
780 DISPLAY AT(8,1):"LA TUA CAPS 
ULA E'STATA DAN-" : :"NEGGIATA IR 

REPARABILMENTE.": :" PER IL TUO 
FALLIMENTO " 

790 DISPLAY AT(14,1):"RIMOSSO DA 
LL'INCARICO!! !" :: GOTO 860 
800 CALL DELSPRITE(#1,#3): : FOR 
L=1 TO 6 : : CALL SOUND(60,2000,0 
): : NEXT L 

810 DISPLAY AT(8,1):"LA TUA CATT 
IVA MIRA HA CAU-": :"SATO UNA RI 
CHIESTA-EXTRA DI": :"ENERGIA. DE 
VI RIENTRARE." 


820 DISPLAY AT(14,1):"ALLA BASE 
FREQUENTERAI DI ": :"NUOVO L'ADD 

DESTRAMENTO-TIRO!" :: GOTO 860 
830 CALL DELSPRITE(#1):: FOR L=2 
000 TO 4500 STEP 250 :: CALL SOU 

ND(100,L,0) : : NEXT L 
840 DISPLAY AT(8,1):"CE L'HAI FA 
TTA COMANDANTE!!!": :"LA TUA MIS 
SIONE E'COMPIUTA!": :"SEI STATO 

PROMOSSO A " 

850 DISPLAY AT(14,1):"CAPO DI ST 
ATO MAGGIORE!!!" 

860 FOR D=1 TO 700 : : NEXT D : : 
DISPLAY AT(19,1)BEEP:"RITENTI? ( 
S O N) " 

870 CALL KEY(0,KEY,STAT) : : IF KE 
Y=83 OR KEY=115 THEN 310 
880 IF KEY078 AND KEYO110 THEN 
870 ELSE CALL CLEAR :: END 
8 90 CALL JOYST(1,C,R): : CALL MOT 
ION(#1 ,-R*4,C* 4) : : RETURN 

900 CALL KEY(0,KEY,STAT) : : IF ST 
AT=0 THEN CALL MOTION(#1 ,0,0) : : 
RETURN 

910 IF KEY=69 THEN 920 ELSE IF K 
EY=68 THEN 930 ELSE IF KEY=88 TH 
EN 940 ELSE IF KEY=83 THEN 950 : 

: RETURN 

920 CALL MOTION(#l,-l6,0): : RETU 
RN 

930 CALL MOTION(#1,0,16) : : RETUR 
N 

940 CALL MOTION(#l,16,0) : : RETUR 
N 

950 CALL MOTION(#l ,0,-16) : : RETU 
RN 


Circuiti 


inerì 


Spectru 



Con questo programma potrete sfruttare 
l'alta risoluzione grafica dello Spectrum per 
disegnare diagrammi di circuiti elettronici 
con grande facilità e rapidità. 

Dopo il RUN vi verranno richiesti i colori desi¬ 
derati di carta e inchiostro (PAPER £ INK) 
nonché un punto iniziale a partire dal quale 


disegnerete il circuito (ascissa tra 0 e 255; 
ordinata tra 0 e 175). A questo punto potete 
iniziare il disegno. In particolare usati i tasti 
del cursore (da 5 a 8) per realizzare le linee 
di connessione fra i diversi componenti, ed i 
tasti qui di seguito elencati per posizionare i 
componenti stessi:' 


2 
















c per condensatori 
r per resistenza 
t per transistor 
d per diodi 
i per induttori 
$ per interruttori 
b per batteria 
f per fusibili 

p per cambiare posizione di disegno 
Tenete presente che i componenti orizzontali 
vengono disegnati da sinistra a destra, quelli 
verticali dal basso all'alto. 

Negli spostamenti con i tasti del cursore una 


sicura vi impedisce di uscire dallo schermo, 
evitando l'arresto del programma. Tuttavia, 
tale inconveniente può verificarsi se, da una 
posizione estrema, tentate di disegnare un 
componente: per riprendere il disegno inseri¬ 
te GO TO 1000 e impostate due nuove coor¬ 
dinate (al limite cambiando il colore di INK 
per cancellare eventuali errori). 

Realizzato il tracciato date BREAK, quindi 
salvatelo su nastro con SAVE "tracciato" 
SCREENS oppure stampatelo con la ZX 
Printer. 


1 INPUT "paper ? (0 - 7)";pap 
er: IF paperCO OR paper>7 

THEN GO TO 1 

2 INPUT "ink ? (0 - 7)ink: 

IF ink<0 OR ink>7 OR ink=p 
aper THEN GO TO 2 

3 PRINT AT 2,0;"posizione di 

partenza "coordinata x 

- INPUT x: PRINT x"'coo 

rdinata y INPUT y: 

PRINT y: GO SUB 8000: IF x 
<0 OR x>255 OR y<0 OR y>l75 

THEN BEEP .2,-8: CLS : 

GO TO 3 

4 PAPER paper: INK ink: CLS : 

LET a=0: LET b=0 

5 PLOT x,y 

6 LET screen=l 

8 PRINT AT 0,0 ;x;" , " ; y 

10 LET m$ = " " 

15 LET m$=INKEY$ 

30 IF m$>="5" AND m$<="8" 

THEN RESTORE (VAL m$-3)*l 
00 

46 IF m$> = "5" AND m$<="8" 

THEN GO TO 60 

50 RESTORE 5.5: FOR z=l TO 1 0 : 

READ u$,u: IF U$=m$ THEN 

GO TO u 

52 NEXT z 

55 DATA "f",6500,"b",5500,"s" , 
6000,"i",3500,"p",1 000,"" , 1 
0,"c",2000,"r",2500,"t",300 
0,"d",4000 

60 READ a,b 

62 IF screen=0 THEN GO TO 64 

64 IF x=255 AND m$="8" OR x=0 

AND m$ = "5" OR y=l75 AND m$ 
= "7" OR y=0 AND m$ = "6" 

THEN LET screen=0: 

GO TO 10 

65 LET x=x+a 


67 LET y=y+b 

68 PRINT OVER 0;AT 0,0;" 

II 

69 PRINT OVER 0;AT 0,0;x;" , 

";y 

70 DRAW a,b 

75 LET screen=l 
80 GO TO 1 0 
200 DATA -1,0 
300 DATA 0,-1 
400 DATA 0,1 
500 DATA 1,0 

1000 INPUT "X: nuova coordinata? 
" ; x 


1 005 

1 01 0 
2005 

2007 

201 0 

201 5 


2020 


2050 


INPUT "Y: nuova coordinata? 

"?y 

PLOT x,y: GO TO 10 
INPUT "o)rizzontale o v)ert 
icale ?";k$: GO SUB 8000 
INPUT "elettrolitico? (S/N) 
" ? z$ : GO SUB 8000: IF z$ = M s 
" THEN GO TO 2100 
INPUT "variabile? (S/N)";z$ 
: GO SUB 8000: IF z$="s" 
THEN GO TO 2050 
IF k$="o" THEN DRAW 0,8: 
DRAW 0,-16: LET x=x+6: 

LET y=y-8: PLOT x,y: 

DRAW 0,16: DRAW 0,-8 : 

LET y=y+8: GO TO 1 0 
IF k$="v" THEN DRAW -8,0: 
DRAW 16,0: LET y=y+6: 

LET x=x+8: PLOT x,y: 

DRAW -16,0: DRAW 8,0: 

LET x=x-8: GO TO 1 0 
IF k$="o" THEN PLOT x-4,y- 
8: DRAW 14,16: DRAW 0,-2: 
DRAW 0,2: DRAW -2,0: 

DRAW 2,0: PLOT x,y: 

GO TO 2015 
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2060 IF k$="v" THEN PLOT x-6,y- 
4 : DRAW 16,14: DRAW -2,0: 
DRAW 2,0: DRAW 0,-2: 

DRAW 0,2: PLOT x,y: 

GO TO 2020 

2100 INPUT "pos o neg prima?";z$ 
: GO SUB 8000 

2110 IF k$="v" AND z$="pos" 

THEN DRAW 8,0: DRAW -16,0 
: DRAW 0,3: DRAW 16,0: 

DRAW 0,-3: PLOT x,y+6: 

DRAW -8,0: DRAW 16,0: 

DRAW 0,1 : DRAW -16,0: 

DRAW 0,1: DRAW 16,0: 

DRAW -8,0: LET y=y+9: 

GO TO 10 

2120 IF k$="v" AND z$="neg" 

THEN DRAW 8,0: DRAW -16,0 
: DRAW 0,1: DRAW 16,0: 

DRAW 0,1: DRAW -16,0: 

PLOT x,y+6: DRAW -8,0: 

DRAW 16,0: DRAW 0,3: 

DRAW -16,0: DRAW 0.-3: 

DRAW 0,3: DRAW 8,0: LET y= 
y+9: GO TO 10 

2130 IF k$="o rf AND z$="pos" 

THEN DRAW 0,8: DRAW 0,-16 
: DRAW 3,0: DRAW 0,16: 

DRAW -3,0: PLOT x+6,y: 

DRAW 0,8: DRAW 0,-16: 

DRAW 1,0: DRAW 0,16: 

DRAW 1,0: DRAW 0,-16: 

DRAW 0,8: LET x=x+9: 

GO TO 10 

2140 IF k$="o" AND z$="neg" 

THEN DRAW 0,8: DRAW 0,-16 
: DRAW 1,0: DRAW 0,16: 

DRAW 1,0: DRAW 0,-16: 

PLOT x+6,y: DRAW 0,8: 

DRAW 0,-16: DRAW 3,0: 

DRAW 0,16: DRAW -3,0: 

DRAW 3,0: DRAW 0,-8: LET x 
=x+9: GO TO 10 

2500 INPUT "o)rizzontale o v)ert 
icale ?" ;k$: GO SUB 8000 

2505 INPUT "variabile ? (S/N)";z 
$ : GO SUB 8000 

2506 IF z$="s" THEN GO TO 2700 
2510 IF k$="o" THEN DRAW 0,4: 

DRAW 18,0: DRAW 0,-8: 

DRAW -18,0: DRAW 0,4: 

DRAW 0,-4: DRAW 18,0: 

DRAW 0,4:- LET x=x+18: 

GO TO 10 

2520 IF k$="v" THEN DRAW 4,0: 
DRAW 0,18: DRAW -8,0: 

DRAW 0,-18: DRAW 4,0: 

DRAW -4,0: DRAW 0,18: 

DRAW 4,0: LET y=y+l8 : 

GO TO 10 


2700 IF k$="o" THEN DRAW -3,3: 
DRAW 3,-3: DRAW -3,-3: 

DRAW 3,3: DRAW 0,8: DRAW 0 
,-16: DRAW 6,0: DRAW 0,16: 
DRAW -6,0: DRAW 3,0: LET y 
=y+8: LET x=x+3: GO TO 10 
2720 IF k$="v" THEN DRAW -3,-3: 
DRAW 3,3: DRAW 3,-3: 

DRAW -3,3: DRAW 8,0: 

DRAW -16,0: DRAW 0,6: 

DRAW 16,0: DRAW 0,-6: 

DRAW 0,3: LET x=x+8: LET y 
- =y+3: GO TO 1 0 

3000 INPUT "pnp o npn";z$: 

GO SUB 8000 

3010 IF z$="npn" THEN CIRCLE x+ 
6,y,8 : PLOT x,y: DRAW 2,0: 
DRAW 0,5: DRAW 0,-10: 

DRAW 1,0: DRAW 0,10: 

DRAW 1,0: DRAW 0,-10: 

DRAW 0,3: DRAW 4,-4: 

DRAW 0,1: DRAW 0,-1: 

DRAW -1,0: DRAW 1,0: 

DRAW -4,4: DRAW 0,2: 

DRAW 6,4: LET x=x+10: 

LET y=y+4: GO TO 1 0 
3020 IF z$="pnp" THEN CIRCLE x+ 
6,y,8 : PLOT x,y: DRAW 2,0: 
DRAW 0,5: DRAW 0,-10: 

DRAW 1,0: DRAW 0,10: 

DRAW 1,0: DRAW 0,-10: 

DRAW 0,3: DRAW 4,-4: 

DRAW -4,4: DRAW 1,0: 

DRAW -1,0: DRAW 0,-1: 

DRAW 0,1: DRAW 0,2: DRAW 6 
,4: LET x=x+10: LET y=y+4: 
GO TO 10 

3500 INPUT "o)rizzontale o v)ert 
icale ?";z$ : GO SUB 8000 
3510 IF z$="o" THEN DRAW 2,0: 
DRAW 7,0,PI: DRAW -2,0: 
DRAW 7,0,PI: DRAW -2,0: 
DRAW 7,0,PI: DRAW 2,0: 

LET x=x+21: GO TO 10 
3520 IF z$="v" THEN DRAW 0,2: 
DRAW 0,7,PI: DRAW 0,-2: 
DRAW 0,7,PI: DRAW 0,-2: 
DRAW 0,7,PI: DRAW 0,2: 

LET y=y+21: GO TO 10 
4000 INPUT "o)rizzontale o v)ert 
icale ?" ;z$: GO SUB 8000 
4010 INPUT AT 0,0 ;"c)atodo o a)n 
odo prima?";k$: GO SUB 8000 

4020 IF z$="o” AND k$="c" THEN 
DRAW 0,6: DRAW 0,-12: 

DRAW 0,6: DRAW 7,-6: 

DRAW 0,12: DRAW -7,-6: 

DRAW 7,6: DRAW 0,-6: LET x 
=x+7: GO TO 10 
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4030 IF z$="o" AND k$="a" THEN 
DRAW 0,6: DRAW 0,-12: 

DRAW 7,6: DRAW -7,6: 

DRAW 7,-6: DRAW 0,6: 

DRAW 0,-12: DRAW 0,6: 

LET x=x+7: GO TO 10 
4040 IF z$="v" AND k$="c" THEN 
DRAW 6,0: DRAW -12,0: 

DRAW 6,0: DRAW -6,7: 

DRAW 12,0: DRAW -6,-7: 

DRAW 6,7: DRAW -6,0: LET y 
=y+7: GO TO 10 

4050 IF z$="v" AND k$="a" THEN 
DRAW 6,0: DRAW -12,0: 

DRAW 6,7: DRAW 6,-7: 

DRAW -6,7: DRAW -6,0: 

DRAW 12,0: DRAW -6,0: 

LET y=y+7: GO TO 10 
5500 INPUT "o)rizzontale o v)ert 
icale ?";z$: GO SUB 8000 
5510 INPUT "pos o neg prima?";k$ 
: GO SUB 8000 

5520 IF z$="v" AND k$="pos" 

THEN DRAW -7,0: DRAW 14,0 
: PLOT x,y+3: DRAW 3,0: 

DRAW -6,0: DRAW 3,0: LET y 
=y+3: GO TO 1 0 
5530 IF z$="v" AND k$="neg" 

THEN DRAW 3,0: DRAW -6,0: 
PLOT x,y+3: DRAW -7,0: 

DRAW 14,0: DRAW -7,0: 

LET y=y+3: GO TO 10 
5540 IF z$="o" AND k$="pos" 

THEN DRAW 0,7: DRAW 0,-14 
: PLOT x+3,y: DRAW 0,3: 


DRAW 0,-6: DRAW 0,3: LET x 
=x+3: GO TO 10 
5550 IF z$="o" AND k$="neg" 

THEN DRAW 0,3: DRAW 0,-6: 
PLOT x+3,y: DRAW 0,-7: 

DRAW 0,14: DRAW 0,-7: 

LET x=x+3: GO TO 10 
6000 INPUT "o)rizzontale o v)ert 
icale ?" ;k$: GO SUB 8000 
6010 IF k$="o" THEN DRAW 14,7: 
LET x=x+14: PLOT x,y: 

GO TO 10 

6020 IF k$="v" THEN DRAW 7,14: 
LET y=y+14: PLOT x,y: 

GO TO 10 

6500 INPUT "o)rizzontale o v)ert 
icale ?";k$: GO SUB 8000 
6510 IF k$="o" THEN DRAW 0,4: 
DRAW 0,-8: DRAW 1,0: 

DRAW 0,8: DRAW 1,0: DRAW 0 
,- 8 : DRAW 1,0: DRAW 0,8: 
DRAW 10,0: DRAW 0,-8: 

DRAW -10,0: DRAW 10,0: 

DRAW 0,4: LET x=x+13: 

GO TO 10 

6520 IF k$="v" THEN DRAW 4,0: 
DRAW -8,0: DRAW 0,1: 

DRAW 8,0: DRAW 0,1: DRAW - 
8,0: DRAW 0,1: DRAW 8,0: 
DRAW 0,10: DRAW -8,0: 

DRAW 0,-10: DRAW 0,10: 

DRAW 4,0: LET y=y+13: 

GO TO 10 

8000 FOR z=l TO 7: NEXT z: 

RETURN 


Alieni 



È la “solita" invasione extraterrestre, ma 
l'obiettivo del gioco è abbastanza insolito. Si 
tratta di impedire che sullo schermo com¬ 
paiono contemporaneamente più di 9 alieni, 
pena il termine della partita. 

Non è diffìcilissimo (anche un inesperto, al li¬ 
vello più facile, può uccidere decine di mor¬ 
to GO SUB 1000 
20 GO SUB 1200 
30 BORDER 0 


ziam prima di soccombere): potete compli¬ 
carlo agendo sulla linea 130, o magari intro¬ 
durre premi e/o difficoltà nel caso si riesca a 
ripulire completamente lo schermo. Una rac¬ 
comandazione: giocate con PAPER a valore 
7 (cioè su sfondo bianco), o dovrete modifi¬ 
care il valore della ATTR alla linea 275. 

40 CLS : PRINT AT 20,2; 

PAPER 4 ;" 


It 








45 PRINT AT 21,2; PAPER 4;" 


50 FOR s=1 TO 20 

60 PLOT RND*254,RND*120+40 

70 NEXT s 

80 LET fi=0: LET 1 = 1 5 
90 LET z=0: LET hits=0 
100 POKE 23672,0 
120 LET t=PEEK 23672 
130 IF t>=80-(a*6) THEN 

PRINT AT RND*17,RND* 2 8+2 ; 
INK 2 ;"A": LET Z = Z + 1 
140 IF z=l0 THEN GO TO 400 
150 PRINT AT 21 ,21 ;z 
160 IF t> = 80-(a * 6) THEN POKE 2 
3672,0 

205 LET 1=1+(INKEY$ = "p")-( 

INKEY$ = "o") 

210 LET 1=1+(1=0)-(1=30) 

220 PRINT AT 19,1;" L 
PAUSE 4 

230 IF INKEY$="q" THEN GO TO 2 
50 

240 IF INKEY$<>"q" THEN 
GO TO 120 

250 FOR c=18 TO 0 STEP -1 

260 PRINT AT c,l+l;"D": PAUSE 2 

270 PRINT AT c,l+1;" " 

275 IF ATTR (c-1,1+1)=58 THEN 
GO TO 300 
280 NEXT c 
290 GO TO 130 
310 BEEP .1,z*2 

320 LET z = z-1 : PRINT AT 21,21 ;z 

330 PRINT AT C-1,1+1; FLASH 1;" 

E": PAUSE 50 
340 PRINT AT c-1,1+1;" " 

350 LET hits=hits+1 
360 PRINT AT 21 ,0 ;"COLPITI = "; hi 
ts 

370 GO TO 130 

400 PRINT AT 4,5; INK 0; 

FLASH 1 ;"SEI STATO DISTRUT 
TO" 

410 PRINT AT 12,2;"vuoi giocare 
ancora (s/n)?" 

42 0 IF INKEY$ = "s" THEN GO TO 2 
0 

430 IF INKEY$="n" THEN STOP 
440 GO TO 420 
1000 FOR n=0 TO 7 
1010 READ a: POKE USR "a"+n,a 
1020 NEXT n 

1030 DATA 129,126,219,126,60,60, 
90,129 


1040 FOR n=0 TO 7 

1050 READ 1: POKE USR "l"+n,l 

1060 NEXT n 

1070 DATA 24,24,24,24,60,126,255 
,90 

1080 FOR n=0 TO 7 

1090 READ d: POKE USR "d"+n,d 

1100 NEXT n 

1110 DATA 16,16,16,16,16,16,56,4 
0 

1120 FOR n=0 TO 7 

1130 READ e: POKE USR "e"+n,e 

1140 NEXT n 

1150 DATA 137,74,52,204,51,44,82 
,145 

1160 RETURN 


1 205 PRINT AT 0,12 ;"ALIENI" 

1210 PRINT AT 3,0;"Dovrai difend 
erti dagli attacchidegli al 
ieni che appaiono imp 

rovvisamente balzando fuori 
dall'iperspazio. Il tuo c 
ompito e' di disintegrarli 
usando il tuo annientator 
e positronico." 


1220 PRINT AT 16,1;"PREMI UN TAS 
TO PER PROSEGUIRE" 

1230 PAUSE 0 

1250 CLS : PRINT AT 3,0;"La tua 
unita' di annientamento vi 
ene controllata dai tasti “ 
o~ (sinistra), ~p~ (destra) 
e ~q~ (emissione del fase 
io di positroni). Se 

sul tuo visore appariran 
no piu' di 9 alieni cont 
emporaneamente, l'unita' 
cesserà' di esistere." 


1260 PRINT AT 13,0;"SCEGLI IL LI 
VELLO DI DIFFICOLTA'";AT 14 
,12;" (1 /5) " 

1 270 PRINT AT 15,5 ;"1=FACILE-5=D 
IFFICILE" 

1290 INPUT "CHE LIVELLO?";a$ 

1300 IF a$<"1" OR a$>"5" THEN 
GO TO 1280 

1 31 0 LET a=VAL a$ 

1320 RETURN 
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con gli attributi 


inczl 

Spectru 


a- 


In seguito all'articolo «Display File e attribu¬ 
ti» apparso sul numero 3 di SUPERSINC, 
pubblichiamo un piccolo «scherzo» dell'auto¬ 
re (Carlo Panzalis). 

A prescindere dalla sorpresa, questo listato 


5 REM caricamento dei dati 
10 FOR j = 33001 TO 31768 
20 POKE j,0 
30 NEXT j 

40 FOR j = 31 257 TO 31480 
50 READ a: POKE j,(a+128) 

60 NEXT j 

70 FOR j = 31163 TO 31169 
80 POKE j,48 
90 NEXT j 

100 REM caricamento set grafico 

110 FOR j =USR "a" TO USR "d"+7 
120 READ g: POKE j,g 
130 NEXT j 
150 STOP 

200 REM traslazione dei dati 

nell'area ATTRIBU 
TI 

210 FOR i=22528 TO 23295 
220 POKE i,PEEK (i+8473) 

230 NEXT i 

250 PRINT AT 5,2;" ABCCBDB " 

799 REM dati per gli attributi 

800 REM linea 1 

810 DATA 0,0,0,2,2,2,2,0,0,0,0, 
0,56,56,61,5 

820 DATA 5,5,5,0,0,0,0,40,40,40 
,4,4,4,4,4,0 
900 REM linea 2 

910 DATA 0,0,2,0,0,0,0,0,0,0,0, 
0,0,56,5,0 

920 DATA 0,0,5,0,0,0,40,0,0,0,4 
4,0,0,0,4,0 
1000 REM linea 3 

1010 DATA 0,0,0,2,2,2,0,32,38,32 
,32,0,6,56,5,5 

1020 DATA 29,5,0,0,31,7,47,7,7,0 
,4,4,4,4,0,0 
1100 REM linea 4 

1110 DATA 0,0,0,0,0,0,34,0,6,0,0 
,0,6,56,5,0 


non è che un pretesto per mostrare un esem¬ 
pio di grafica ottenuta operando nell'area di 
memoria dedicata dallo Spectrum agli attri¬ 
buti video. Provate a caricarlo! 


1120 DATA 24,24,0,0,31,0,40,0,0, 
0,44,0,4,0,0,0 

1200 REM linea 5 

1210 DATA 0,0,2,2,2,2,2,32,38,32 
,0,0,62,56,61,0 

1220 DATA 24,0,24,0,31,7,7,47,40 
,40,4,0,0,4,4,0 

1300 REM linea 6 

1310 DATA 0,0,0,0,0,0,0,0,6,0,32 

, 0 , 6 , 0 , 0,0 

1320 DATA 24,0,0,24,31,0,0,0,0,0 

, 0 , 0 , 0 , 0 , 0,0 

1400 REM linea 7 

1410 DATA 0,0,0,0,0,0,32,32,32,3 
8,38,6,0,0,0,0 

1420 DATA 24,0,0,0,31,7,7,7,7,0, 

0 , 0 , 0 , 0 , 0,0 

2000 REM dati per il set grafico 

2010 DATA 0,64,64,64,64,64,126,0 

2020 DATA 0,126,64,124,64,64,126 

,0 

2030 DATA 0,60,66,64,78,66,60,0 

2040 DATA 0,254,16,16,16,16,16,0 
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Potholes 



La base di partenza è una città percorsa da 
vie poste in modo simmetrico l'una rispetto 
l'altra. Le vie sono disseminate di buche, e 
due macchine, ognuna di un colore diverso, 
sono parcheggiate ai due lati opposti dello 
schema. Il giocatore, un cittadino dotato di 
senso civico, deve cercare di riempire le bu¬ 
che guidando con destrezza attraverso le 
vie. Per ogni buca riempita sono attribuiti 
cinque punti. Il punteggio parziale è conti¬ 
nuamente aggiornato man mano che le bu¬ 


70 POKE 5328Ó,1:POKE53281,1 
80 PRINT"{CLR}{BLK}ATTENDI UN AT 
TIMO MENTRE SISTEMO 
{ 8 SPAZI}I CARATTERI..." 

90 RESTORE:FOR 1=0 TO 8: READ A: 
NEXT 

91 POKE 56334,PEEK(56334)AND254 

92 POKE1,PEEK(1)AND251 

93 FOR 1=0 TO 511:POKEl2288+1,PE 
EK(53248+1):NEXT 

94 POKE 1,55:POKE 56334,PEEK(563 
34) ORI 

95 1=12505 

96 READ A :IF A<>256 THEN POKE I, 
A: 1 = 1+1 :G0T096 

99 POKE 53272,28 
110 GOSUB 20000:GOTO 1010 
300 GETD$:P=PEEK(203):IF P=64 TH 
EN HA=4:RETURN 

310 IF P=30 THEN P=0:GOTO 360 
320 IF P=36 THEN P=1:GOTO 360 
330 IF P=29 THEN P=2:GOTO 360 
340 IF P=37 THEN P=3:GOTO 360 
350 RETURN 

360 IF PEEK(A+M(P))=33 THEN RETU 
RN 

370 HA=P:RETURN 

400 IF HB<>4 THEN B1=B+M(HB) 

402 IF CN>0 THEN RETURN 
4 03 IF CN=0 THEN HB = 4: RETURN 
405 HY=INT((B-VR+1)/40)-INT((A-V 
R+l)/4 0) 

410 HX=B-A-HY*40:CN=3 
420 IF ABS(HX)>ABS(HY) THEN 450 
430 IF HY> = 0 THEN HB = 0:RETURN 
440 HB=1tRETURN 


che vengono riempite. Nel frattempo l'altra 
macchina, il funzionario della viabilità, cerca 
di rimpiazzare le buche. 

La macchina del giocatore è guidata utiliz¬ 
zando la tastiera, mentre la macchina del 
funzionario procede automaticamente pilo¬ 
tata dal computer. Col tasto A/l l'auto proce¬ 
de verso il basso; U, verso l'alto, K a destra, 
e H a sinistra. 

Buon divertimento, e occhio agli scontri tra le 
due auto, perché pongono fine al gioco! 


450 IF HX>0 THEN HB=2:RETURN 
460 HB=3:RETURN 
500 IF HA=4 THEN RETURN 
510 Al=A+M(HA):D=PEEK(Al) 

520 IF D=32 THEN RETURN 

530 IF D=31 THEN 560 

540 IF D=33 THEN HA=4: RETURN 

550 OV=l:RETURN 
560 S=S+TE:PO=PO-l 
570 POKE 214,3:S$=STR$(S):SL=LEN 
(S$):PRINT SPC(22-SL)MID$(S$ 
,2,SL-1) 

580 RETURN 

600 IF HB=4 THEN RETURN 
610 Bl=B+M(HB):D=PEEK(B1) 

620 IF D=32 OR D=31 THEN RETURN 

630 OV=l:RETURN 

1000 GOTO 6000 

1010 GOSUB 10000 

1020 GOSUB 1100:GOSUB 1200 

1040 IF OV=l THEN 1700 

1050 IF PO=0 THEN 1500 

1060 GOTO 1020 

1100 IF HAO4 THEN POKE A,32:A=A 
1 :POKE A,CH(HA) :POKE A+CR,2 

1110 GOSUB 300:GOSUB 500 
1120 RETURN 

1 200 IFHBO4THENP0KEB, UN : POKE B+ 
CR,7:B=Bl:UN=PEEK(B):POKE B 
,CH(HB):POKE B+CR,14 
1210 CN=CN - 1 

1 220 GOSUB 400 :GOSUB 600 
1230 RETURN 

1500 GOSUB llOOtPOKE 214,15:PRIN 
T""SPC(16)"BONUS" 
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1510 BO=TE*20:S=S+BO:TE=TE+5 
1520 PRINT SPC(16)BO 
1530 GOSUB 3000:FOR 1=0 TO 500:N 
EXT:GOTO! 010 
1700 GOSUB 1100 
1710 POKE B,32:POKE A,42 
1720 GOSUB 3200 

1730 CA=CA-1:OV=0:IF CA=0 THEN 4 
000 

1 74 0 GOTO 1010 

3000 FOR SL=0 TO 20 

3010 FOR S1=0 TO 40:NEXT 

3020 FOR Sl=0 TO 20:NEXT:NEXT 

3030 RETURN 

3100 FOR SL=0 TO 30 

3110 FOR S1=0 TO 10 :NEXT 

3120 FOR S1=0 TO 10:NEXT:NEXT 

3130 RETURN 

3200 FOR SL=15 TO 0 STEP-1 
3220 FOR S1=0 TO 9:NEXT:POKE A+C 
R,4 

3230 FOR Si=0 TO 9:NEXT:POKE A+C 
R,1:NEXT 
3250 RETURN 

4000 GOSUB 3100 

4001 PRINT"{HOME}{GIU 1 }" 

4010 FOR SI=0 TO 18 

4020 PRINT"{DES}{ 13 SPAZl}":NEX 
T 

4030 POKE 214,6 

4031 PRINT"{ 2 GIU'}{DES}{GRN} 

{ 2 SPAZI}* FINE * 

{ 3 SPAZI}" 

4040 IF S>HS THEN HS=S:PRINT" 

{ 2 GIU'}{ 2 DES}{CYN}RECOR 

D. . . " 

4050 PRINT"{ 3 GIU'}{BLU}{DES}GI 
OCHI ANCORA?" 

4060 PRINT SPC(1)"{GIU'}<S/N>" 

4070 POKE 214,10:S$=STR$(HS):SL= 
LEN(S$) 

4071 PRINT"{ 2 GIU'}"SPC(22-SL)M 
ID$(S$,2,SL-1) 

6000 GET D$:IF D$=""THEN 6000 

6010 IF D$="S" THEN 6100 

6020 IF D$="N" THEN PRINT"{CLR} 

{BLK}": END 

6030 IF D$ = "{CLR}" THEN RUN 
6040 GOTO 6000 

6100 CA=3:S=0:TE=5 
6110 GOTO 101 0 

10000 PRINT"{CLR}{RED} ** POTHOL 
ES **" 

1 001 0 PRINT"{YEL}!!!!!!!!!!!!!!! 

Il 

10020 FOR 1=0 TO 5 
1 0030 PRINT" ! •- 4 -4-1 
{ 13 SPAZI}" 

1 0040 PRINT" !-!i«-!!-!!«-!!-!" 


1 00 50 PRINT" !«-!!-!!-!!-!! -! " :NEX 
T 

1 0060 PRINT" I 1 

{ 13 SPAZI}" 

1 0065 PRINT"!!!!!!!!!!!!!!!" 

1 0070 PRINT" {DES } ♦- {BLU} = "TE ;TAB ( 
10)"{GRN}["CA; 

10080 PRINT"{HOME}{BLU} 

{ 3 GIU’}"SPC(16)"PUNTEGGI 
O" 

1 0090 S$ = STR$(S) :SL=LEN(S$) :PRIN 
T SPC(22-SL)MID$(S$,2,SL-1 
) 


10100 PRINT"{ 4 GIU'}"SPC(17)"MA 
SS IMO" 

10110 PRINT"{GIU'}"SPC(16)"PUNTE 
GGIO" 

10120 S$=STR$(HS):SL=LEN(S$):PRI 
NT SPC(22-SL)MID$(S$,2,SL- 
1 ) 


10130 A=81 +VR:B=813+VR:UN=31 
10140 POKE A,28:POKE A+CR,2 
10150 POKE B,27 :POKE B+CR,14 
10200 HA=4:HB=4:PO=l50:CN=20 
10210 PRINT"{HOME}{ 3 GIU'}":RET 
URN 


20000 DIM M(3),CH(3) 

2001 0 VR=1 024 :CR=54272:CA=3:TE= 5 
:OV=0 

20020 RESTORE:FOR 1=0 TO 3:READ 
M ( I) ,CH(I) :NEXT 

20030 DATA -40,27,40,28,-1,29,1, 
30 


20040 POKE 36878,10 
20050 RETURN 

30000 DATA 84,124,84,16,16,186,2 
54,186 


30010 DATA 186,254,186,16,16,84, 

124.84 

30020 DATA 14,228,78,254,254,78, 
228,14 

30030 DATA 112,39,114,127,127,11 
4,39,112 

30040 DATA 0,0,24,24,24,0,0,0 
30050 DATA 0,0,0,0,0,0,0,0 
30060 DATA 170,85,170,85,170,85, 

170.85 

30070 DATA 0,0,0,0,0,0,0,0,256 
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C64: & fUO^ìl 


Ecco quattro programmi per ottenere ogni ti¬ 
po di calendario col vostro computer, sia su 
video che su carta (è quindi necessaria la 
stampante). 

Programma I - Permette di visualizzare sullo 
schermo il calendario di un mese a scelta. 
Programma 2 - Consente la stampa su carta 
del calendario di un mese a scelta; il formato 
è gigante, in modo che il foglio si possa ap¬ 
pendere al muro. NOTA PER IL VIC: Questo 
programma, data la sua lunghezza, necessi¬ 
ta dell'espansione di memoria da 8K. 

Programma n. I 

80 DIMM$(12):FORI = lTOT 2:READM$(I 
):NEXTI 

90 SYS6551 7:A=PEEK(781 ) :IFA=40TH 
ENPOKE53281,1 
100 PRINT"{CLR}{ 2 GIU'} 

{ 3 DES}QUESTO PROGRAMMA":PR 
INT" { 6 DES}PRODUCE UN" 

105 PRINT"{ 2 DES}{PUR}CALENDARI 
O MENSILE{BLU}":PRINT" 

{ 5 DES}SULLO SCHERMO" 

110 PRINT"{ 2 GIU'}{ 6 DESjlMPOS 
TA IL":PRINT"{ 4 DES}{RED}ME 
SE{BLU} e L'{RED}ANNO{BLU}" 

111 PRINT"{ 3 DESjCHE VUOI VEDER 
E":PRINT"{GIU 1 }{ 2 DES}(ESEM 
PIO: {RED}!2,1983{BLU}){PUR} 
{ 2 GIU'}" 

130 PRINT"{ 6 DES}";:INPUTM0,Y:P 
RINT"{ 2 GIU'}{ 7 DES}{PUR}G 
RAZIE!{BLU}{GIU'}":FORI=lT08 
00:NEXT 

292 IFM0=lORM0=3ORM0=5ORM0=7ORM0 
=8ORM0=l0ORM0=l2THENEI=31 

293 IFM0 = 4ORM0 = 6ORM0 = 9ORM0 = 11 THE 
NEI=30 

294 IFM0 = 2ANDY/4< >INT(Y/4)THENEI 
= 28 

295 IFM0=2ANDY/4=INT(Y/4)THENGOS 
UBI 400 

297 PRINT"{CLR}{GIU'}{DES}{RED}" 
;M$(M0);" ";Y;"{BLU}" 

298 GOSUBl 350 :IFA=40THENPRINT 
300 PRINT"{ 2 DES}{RED}D{BLU} 

{ 2 DES}L{ 2 DES}M{ 2 DES}M 
{ 2 DES}G{ 2 DES}V{ 2 DES}S" 


Programma 3 - Serve a stampare su carta il 
calendario di un mese a scelta, ma questa 
volta il formato è quello di un 'agenda, con lo 
spazio per segnare gli impegni e le scadenze 
dì ogni giorno. 

Programma 4 - Permette di stampare in un 
solo foglio il calendario di un anno intero. 
IMPORTANTE: ricordatevi, usando i pro¬ 
grammi 2-3-4, di posizionare la carta nella 
stampante in modo che il calendario venga 
stampato su un unico foglio e non a cavallo 
tra due fogli. 


305 GOSUBl360 

310 D=1:GOSUBl050 

320 IFDl=7THENFORI = l TOl 9:PRINT" 
{DES}";:NEXT:PRINTD:IFA=40TH 
ENPRINT 

321 IFDl=7THEN330 

322 IFDl=6THENFORI = lTOl6 :PRINT" 
{DES}";:NEXT:PRINTD;:GOTO330 

323 IFDl=5THENFORI = lTOl 3:PRINT" 
{DES}";:NEXT:PRINTD;:GOTO330 

324 IFDl=4THENFORI = 1TOl 0 :PRINT" 
{DES}";:NEXT:PRINTD;:GOTO330 

325 IFDl=3THENFORI=1T07:PRINT" 
{DES}";:NEXT:PRINTD;:GOTO330 

326 IFDl=2THENFORI=1T04:PRINT" 
{DES}";:NEXT:PRINTD;:GOTO330 

327 IFDl=1THENPRINT"{DES}{RED}"; 
D;"{BLU}";:GOTO330 

330 FORD=2TOEl:GOSUBl050 

331 IFDl =1ANDD< = 9THENPRINT"{DES} 
{RED}";D;"{BLU}";:G0T0345 

332 IFDl=1ANDD>9THENPRINT"{RED}" 
;D;"{BLU}";:G0T0345 

333 IFDl=7THEN340 

334 IFD<=9THENPRINTD;:GOT0345 

335 PRINT"{SIN}";D;:G0T0345 

340 IFD>9THENPRINT"{SIN}";D:GOTO 
345 

341 PRINTD 

345 IFA=40ANDD1=7THENPRINT 
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346 NEXTD 

1 045 PRINT:PRINT:FL=1:GOSUBl 350 : 

IFA=22THENPRINT"{ 3 SU}" 
1049 PRINTsEND 

1 050 IFMO = 1THENMO = 13 :Y=Y-1 : GOTO! 
080 

1 060 IFMO = 2THENMO = 14 :Y=Y-1 
1080 M=M0-2 

1100 Di=INT(2.6*M-0.2)+D+Y-1900+ 
INT((Y-1900J/4) 

1150 Di=D1+INT(19/4)-2*19 
1200 Di=D1-INT(D1/7)*7+1 
1210 IFM0=4ORM0=9THENDl=D1+1 
1230 IFM0=13THENM0=1:Y=Y+1:GOTOl 
245 

1 240 IFM0 = 14THENMO =2 :Y=Y+1: Di=D1 
+ 1 

1244 IFDl=8THEND1=1 

1245 IF(Y=2100ANDM0>=3)OR(Y>2100 
)THENDl=D1-1 :IFDl=0THEND1=7 

1247 IF(Y=2200ANDMO>=3)OR(Y>2200 
)THENDl=D1-1 :IFDl=0THEND1=7 

1249 IF(Y=2300ANDM0>=3)OR(Y>2300 
)THENDl=D1-1 :IFDl=0THEND1=7 

1250 RETURN 

1350 IFFL=OTHENPRINT:FORI=1T022: 
PRINT"*";:NEXT:PRINT:RETURN 

Programma n. 2 

1 GOTO!0 

5 E1 =1:E2 = 1:E3 = 1:E4 = 1:E5 = 1:E6 = 1 : 
E7 = 1 

6 GOSUB1109:D8=D7-1: RETURN 

10 OPEN1,4:SYS6551 7:A=PEEK(781 ) : 

IFA=40THENPOKE53281 ,1 

20 GOSUB4 000:GOSUB32 00:PRINT# 1 
11 

30 ONMOGOSUB3010,3020,3030,3040, 
3050,3060,3070,3080,3090,3100 
,3110,3120 

40 PRINTfl,"":PRINT#1,""rGOSUBl6 
10:GOSUB1650sGOSUBl660 
80 OND9GOSUB1 81 1 ,1 821 ,1 831 ,1 841 , 
1 851 , 1 861 ,1 871 

99 PRINT#1:PRINT#1 

100 Gl=D8 

105 G=G1 rGOSUBl 720:D1=D:El=E 
110 G2=G+1 :G=G2:GOSUB1 720 :D2=D:E 
2=E 

115 G3=G+1 :G=G3:GOSUB1 720:D3=D:E 
3=E 

120 G4=G+1 :G=G4:GOSUB1 720 :D4=D:E 
4=E 

125 G5=G+1:G=G5:GOSUB1720:D5=D:E 
5=E 


1355 IFDl=7THENPRINT"{ 3 SU}":FO 
RI = 1 T022 SPRINT"*";sNEXTsPRI 
NT"{SU}":RETURN 

1358 FORI=1T022SPRINT"*";sNEXTsP 
RINT"{SU}"SRETURN 

1360 PRINT"{ 2 SPAZI}[<T>] 

{ 2 SPAZI}[<T>]{ 2 SPAZI} 

[<T>]{ 2 SPAZI}[<T>] 

{ 2 SPAZI}[<T>]{ 2 SPAZI} 
[<T>]{ 2 SPAZI}[<T>]"sRETUR 
N 

1400 IF(Y/100=INT(Y/100))AND(Y/4 
OOO INT ( Y/4 0 0) ) THE NEI =28:GO 
TOT 410 
1405 E1=29 
1410 RETURN 

1420 DATA"{ 3 SPAZI}GENNAIO"," 

{ 3 SPAZ1}FEBBRAIO"," 

{ 4 SPAZ1}MARZO"," 

{ 4 SPAZI}APRILE" 

1430 DATA"{ 4 SPAZI}MAGGIO"," 

{ 4 SPAZI}GlUGNO"," 

{ 4 SPAZ1}LUGLIO"," 

{ 4 SPAZI}AGOSTO" 

1440 DATA"{ 2 SPAZI}SETTEMBRE"," 
{ 3 SPAZI}OTTOBRE"," 

{ 3 SPAZI}NOVEMBRE"," 

{ 3 SPAZI}DICEMBRE" 


130 G6=G+1:G=G6sGOSUBl720:D6=D:E 
6=E 

135 G7=G+1 :G=G7:GOSUB1 720:D7=D:E 
7 =E 

1 40 Gl=G7+1 sGOSUBl109:PRINT#1,"" 
:PRINT#1,"":IFG1<=E9THEN1 05 
155 PRINT#!,"" 

1000 GOTO5000 

1109 GOSUB2000:X=E1 :X1=D1 sGOSUBl 
1 000 

1120 X=E2:X1=D2 sGOSUBl1000 
1130 X=E3: XI=D3 sGOSUBl1000 
1140 X=E4:Xl=D4 sGOSUBl1000 
1150 X=E5: XI=D5 sGOSUBl1000 
1160 X=E6: XI=D6 sGOSUBl1000 
1170 X=E7:X1=D7:FL=1sGOSUBl1000 
1 209 GOSUB2000:X=El :X1=Dl sGOSUBl 
2000 

1220 X=E2:X1=D2sGOSUBl2000 
1 230 X=E3: XI=D3 sGOSUBl 2000 
1240 X=E4:X1=D4sGOSUBl2000 
1 250 X=E5: XI=D5 sGOSUBl 200 0 
1260 X=E6:X1=D6sGOSUBl2000 . 

1270 X=E7:X1=D7:FL=1sGOSUBl2000 
1 309 GOSUB2000:X=E1 :X1=D1 sGOSUBl 
3000 

1320 X=E2:X1=D2sGOSUBl3000 
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1 330 X=E3: XI=D3sGOSUBl 3000 
1 340 X=E4: XI=D4:GOSUBl 300 0 
1 350 X=E5:XI=D5:GOSUBl 3000 
1 360 X=E6:XI=D6:GOSUBl 3000 
1370 X=E7:Xl=D7:FL=1:GOSUBl3000 
1409 GOSUB2000:X=El:X1=D1:GOSUBl 
4000 

1420 X=E2:Xl=D2:GOSUBl4000 
1430 X=E3:Xl=D3:GOSUBl4000 
1440 X=E4:Xl=D4:GOSUBl4000 
1450 X=E5:Xl=D5sGOSUBl4000 
1460 X=E6:Xl=D6:GOSUBl4000 
1470 X=E7:Xl=D7:FL=1:GOSUBl4000 
1 509 GOSUB2 000 :X=El:Xl=D1:GOSUBl 
5000 

1520 X=E2:Xl=D2:GOSUBl5000 
1530 X=E3:Xl=D3:GOSUBl5000 
1540 X=E4:X1=D4:GOSUBl5000 
1550 X=E5:X1=D5:GOSUBl5000 
1560 X=E6:Xl=D6:GOSUBl5000 
1570 X=E7:Xl=D7:FL=1:GOSUBl5000 
1600 RETURN 

1610 PRINT#1,"{ 5 SPAZI}";:PRINT 
#1,CHR$(14)"DOM";:PRINT#1 ,C 
HR$(15)"{ 5 SPAZI}"; 

1 61 1 PRINT# 1 ,CHR$(14)"LUN";:PRIN 
T# 1 ,CHR$(15)"{ 5 SPAZI}"; 

1 61 2 PRINT#1 ,CHR$(14)"MAR"; :PRIN 
T#1,CHR$(15)"{ 5 SPAZI}"; 

1 613 PRINT#! ,CHR$(14)"MER";:PRIN 
T#1,CHR$(15)"{ 5 SPAZI}"; 

1614 PRINT#!,CHR$(14)"GIO";:PRIN 
T#1,CHR$(15)"{ 5 SPAZI}"; 

1615 PRINT#1,CHR$(14)"VEN";:PRIN 
T#1,CHR$(15)"{ 5 SPAZI}"; 

1616 PRINT#1,CHR$(14)"SAB":PRINT 
#1 , CHR$ (15) " " 

1620 PRINT#1,"{ 5 SPAZI}";SPRINT 

#1 , CHR$(14)"-"; :PRINT# 1 ,C 

HR$(15)"{ 5 SPAZI}"; 

1 621 PRINT#1,CHR$(14)"-";sPRIN 

T#1,CHR$(15)"{ 5 SPAZI}"; 

1 622 PRINT#!,CHR$(14)sPRIN 
T# 1 ,CHR$( 1 5) " { 5 SPAZI}"; 

1 623 PRINT# 1 ,CHR$(1 4)"-" ; sPRIN 

T#1,CHR$(15)"{ 5 SPAZI}"; 

1 624 PRINT#! ,CHR$(14)"-";sPRIN 

T#1 , CHR$(15)"{ 5 SPAZI}"; 

1 62 5 PRINT#!,CHR$(14)" "; sPRIN 

T#1,CHR$(15)"{ 5 SPAZI}"; 

1 626, PRINT#1,CHR$(14)"-"SPRINT 

#1,CHR$(15)" "sRETURN 
1650 IFM0=1ORM0=3ORM0=5ORM0=7ORM 
0=8ORM0=l0ORM0=l2THENE9=31 
1 652 IFM0=4ORM0 = 6ORM0=9ORM0 = l 1 TH 
ENE9=30 

1 654 IFM0=2ANDY/4OINT(Y/4) THENE 
9 = 28 


1 656 IFM0 = 2ANDY/4 = INT(Y/4)THENE9 
= 29 

1658 RETURN 

1 660 IFM0 = 1THENM0 = 13 :Y=Y-1s GOTOl 
670 

1 665 IFM0 = 2THENM0 = 14 s Y=Y-1 
1670 M=M0-2 

1675 D9=INT(2.6*M-0.2)+D+Y-1900+ 
INT((Y-1900)/4) 

1 680 D9=D9 + INT(19/4)-2*1 9 

1685 D9=D9-INT(D9/7)*7+1 
1690 IFM0=4ORM0=9THEND9=D9+l 
1 695 IFM0 = 13THENM0 = 1sY=Y+l sGOTOl 
71 0 

1 700 IFM0 = 14THENM0 = 2 sY=Y+l SD9=D9 

+ 1 

1705 IFD9=8THEND9=1 

1710 IF(Y=2100ANDM0> = 3)OR(Y>2100 
)THEND9=D9-1sIFD9=0THEND9=7 

1711 IF(Y=2200ANDM0>=3)OR(Y>2200 
)THEND9=D9-1sIFD9=0THEND9=7 

1712 IF(Y=2300ANDM0>=3)OR(Y>2300 
)THEND9=D9-1sIFD9=0THEND9=7 

1715 RETURN 
1720 IFG>E9THEN1740 
1 722 IFG<10THENi 742 
1726 IFG>=10ANDG<20THEN1746 
1728 IFG>=20ANDG<30THEN1748 
1730 IFG>=30THEN1750 
1740 D=1sE=lsGOTOl755 
1742 D=G+2sE=lsGOTOl755 
1746 D=G-8sE=2sGOTOl755 
1748 D=G-18sE=3SGOTOl755 
1 750 D=G-28 sE=4 
1755 RETURN 

1811 DI=1sD2=3sD3=4sD4=5sD5=6sD6 
= 7 s D7 = 8 s GOSUB5s RETURN 
1821 DI=1sD2=l sD3=3sD4=4sD5=5sD6 
=6 s D7 = 7 s GOSUB5 s RETURN 
1831 DI=1sD2=lsD3=lsD4=3sD5=4;D6 
= 5 5 D7 = 6 s GOSUB5 s RETURN 
1841 Di=1sD2=l sD3=1sD4=1sD5=3sD 6 
= 4 :D7 = 5 s GOSUB5 s RETURN 
1851 DI=1sD2=lsD3=lsD4=lsD5=lsD6 
= 3 s D7 = 4 s GOSUB5s RETURN 
1861 DI=1sD2=l:D3=1sD4=lsD5=lsD6 
= 1 sD7 = 3sGOSUB5sRETURN 
1871 Di=3sD2=4sD3=5sD4=6sD5=7sD6 
= 8 SD7 = 9 S GOSUB5 SRETURN 

2000 PRINT#1 ,"{ 4 SPAZI}";sRETUR 
N 

2001 PRINT#1," [< 2 X>] ";sRETUR 

N 

2002 PRINT#1,"[<X>]{ 2 SPAZI} 
[<X>]";SRETURN 
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2003 

2004 

2005 
201 1 
201 2 
201 3 
201 4 

201 5 
2021 
2022 

2023 

2024 

2025 

2031 

2032 

2033 

2034 

2035 

2041 

2042 

2043 

2044 

2045 

2051 

2052 

2053 

2054 

2055 
2061 
2062 
2063 


PRINT#1 
[<X>] " ; 
PRINT#1 
[<X>]"; 
PRINT#! 
N 

PRINT#1 

RETURN 

PRINT#1 

RETURN 

PRINT#1 

RETURN 

PRINT#! 


[<x>] { 

: RETURN 

2 

SPAZI} 

,"[<X>]{ 

: RETURN 

2 

SPAZI} 

[< 2 

x>] 

" ; : RETUR 

/”[<X>]{ 

2 

SPAZI}"; : 

," [<x>] { 

2 

SPAZI}";: 

[<X>]{ 

2 

SPAZI}"; : 

[<X>]{ 

2 

SPAZI}";: 


RETURN 

PRINT#1,"[<X>]{ 2 SPAZI}";: 
RETURN 

PRINT# 1 , 11 [< 2 X> ] " ; : RETUR 

N 

PRINT#1,"[<X>]{ 2 SPAZI} 
[<X>]: RETURN 


PRINT#1,"{ 2 SPAZI}[<X>] 

: RETURN 

PRINT#![<X>]{ 2 SPAZI}"; 
: RETURN 

PRINT#1 ,"[< 4 X>] "; : RETURN 
PRINT#1 , " [ < 3 X>] "; : RETURN 

PRINT#1 ,"( 3 SPAZI}[<X>]: 
RETURN 

PRINT#1," [< 2 X>] "; : RETUR 

N 

PRINT#1,"{ 3 SPAZI}[<X>]";: 
RETURN 

PRINT#1 , " [ < 3 X>] "; : RETURN 

PRINT#1,"( 2 SPAZI}[<X>] "; 

: RETURN 

PRINT#1 ," [< 2 X>] "; : RETUR 

N 

PRINT#1 ,"[<X>] [<X>] "; :RET 

URN 

PRI NT# 1 , " [ < 4 X>]"; -.RETURN 
PRINT#1,"{ 2 SPAZI}[<X>] "; 

: RETURN 

PRINT#1 , " [ < 4 X>] "; : RETURN 
PRINT#1,"[<X>]{ 3 SPAZI}";: 
RETURN 

PRI NT# 1 f " [ < 3 X>] "; -.RETURN 

PRINT#1,"( 3 SPAZI}[<X>]"; : 
RETURN 

PRINT#1 , " [ < 3 X>] "; : RETURN 

PRINT#! ," [< 2 X>] "; : RETUR 

N 

PRINT#!,"[<X>]{ 3 SPAZI}";: 
RETURN 

PRI NT# 1 , " [ < 3 X>] "; .-RETURN 


2064 PRINT#! ,"[<X>] { 2 SPAZI} 
[<X>] "; : RETURN 

2065 PRINT# 1 , " [< 2 X>] " ; : RETUR 

N 

2 071 PRINT# 1 , " [ < 4 X>] "; : RETURN 

2072 PRINT# 1 , " { 3 SPAZI} [<X>]"; : 
RETURN 

2073 PRINT#!,"{ 2 SPAZI}[<X>] "; 

: RETURN 

2074 PRINT#1 , " [<X>]{ 2 SPAZI}"; 

: RETURN 

2075 PRINT#1," [<X>]{ 2 SPAZI}"; 

.-RETURN 

2081 PRINT#1 f " [< 2 X>] "; : RETUR 

N 


2082 PRINT#1,"[<X>]{ 2 SPAZI} 
[<X>]"; :RETURN 

2083 PRINT#1 ," [< 2 X>] "; : RETUR 

N 

2084 PRINT#1,"[<X>]{ 2 SPAZI} 
[<X>]";: RETURN 

2085 PRINT#1 ," [< 2 X>] "; : RETUR 

N 

2091 PRINT# 1 t '* [< 2 X>] " ; : RETUR 

N 

2092 PRINT#1 f "[<X>]{ 2 SPAZI} 
[<X>]";: RETURN 

2093 PRINT#!," [< 3 X>]";:RETURN 


2094 PRINT#1,"{ 3 SPAZI}[<X>]";: 
RETURN 

2095 PRINT# 1 t " [< 2 X>] "; : RETUR 

N 


2111 PRINT#1,"{ 
: RETURN 

2112 PRINT# 1 ,"{ 
:RETURN 

21 1 3 PRINT#1 ," { 
: RETURN 


2 SPAZI}[<X>] " 
2 SPAZI}[<X>] " 
2 SPAZI}[<X>] " 


2114 PRINT#1 , " { 2 SPAZI}[<X>] " 

: RETURN 

2115 PRINT#1 r"{ 2 SPAZI} [<X>] " 

: RETURN 

3010 GOSUB2000 :PRINT# 1 ," 

[< 3 X>]{ 2 SPAZI}[< 5 X>] 
[<X>]{ 3 SPAZI}[<X>]" 

3011 GOSUB2000 :PRINT#1 ,"[<X>] 

{ 5 SPAZI}[<X>]{ 5 SPAZI} 
[< 2 X>]{ 2 SPAZI}[<X>]" 

3012 GOSUB2000 :PRINT#1 ,"[<X>] 

{ 2 SPAZI}[< 2 X>] 

[< 4 X>]{ 2 SPAZI}[<X>] 
[<X>] [<X>]" 

3013 GOSUB2000 :PRINT# 1 ,"[<X>] 

{ 3 SPAZI}[<X>] [<X>] 

{ 5 SPAZI}[<X>]{ 2 SPAZI} 
[< 2 X>] " 
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3014 GOSUB2000:PRINT#1 

[< 3 X>]{ 2 SPAZI}[< 5 X>] 
[<X>]{ 3 SPAZI}[<X>]" 

3015 RETURN 

3020 GOSUB2000:PRINT#1 

[< 5 X>] [< 5 X>] [< 4 X>] 

11 

3021 GOSUB2000:PRINT#1[<X>] 

{ 5 SPAZI}[<X>]{ 5 SPAZI} 
[<X>]{ 3 SPAZI}[<X>]" 

3022 GOSUB2000:PRINT#1 

[< 3 X>]{ 3 SPAZI}[< 4 X>] 
{ 2 SPAZI}[< 4 X>] " 

3023 GOSUB2000:PRINT#1[<X>] 

{ 5 SPAZI}[<X>]{ 5 SPAZI} 
[<X>]{ 3 SPAZI}[<X>]" 

3024 GOSUB2000:PRINTfl[<X>] 

{ 5 SPAZI}[< 5 X>j 

[< 4 X>] " 

3025 RETURN 

3030 GOSUB200 0 :PRINT#1,"[<X>] 

{ 3 SPAZI}[<X>]{ 2 SPAZI} 
[< 3 X>]{ 2 SPAZI}[< 4 X>] 

II 

3031 GOSUB2000:PRINT#1 

[< 2 X>] [< 2 X>] [<X>] 

{ 3 SPAZI}[<X>] [<X>] 

{ 3 SPAZI}[<X>]" 

3032 GOSUB2000:PRINT#1,"[<X>] 

[<X>] [<X>] [<X>] 

{ 3 SPAZI}[<X>] [< 4 X>] " 

3033 GOSUB2000:PRINT#![<X>] 

[<X>] [<X>] [< 5 X>] [<X>] 

{ 2 SPAZI}[<X>] " 

3034 GOSUB2000:PRINT#1[<X>] 

{ 3 SPAZI}[<X>] [<X>] 

{ 3 SPAZI}[<X>] [<X>] 

{ 3 SPAZI}[<X>]" 

3035 RETURN 

3040 GOSUB2000:PRINT#1 

[< 3 X>]{ 2 SPAZI}[< 4 X>] 
{ 2 SPAZI}[< 4 X>] " 

3041 GOSUB2 000 :PRINT#1,"[<X> ] 

{ 3 SPAZI}[<X>] [<X>] 

{ 3 SPAZI}[<X>] [<X>] 

{ 3 SPAZI}[<X>]" 

3042 GOSUB2000:PRINT#1,"[<X>] 

{ 3 SPAZI}[<X>] [< 4 X>] 

{ 2 SPAZI}[< 4 X>] " 

3043 GOSUB2000:PRINT#1 

[< 5 X>] [<X>]{ 5 SPAZI} 

[<X>]{ 2 SPAZI}[<X>] " 

3044 GOSUB2000 :PRINT# 1 [<X>] 

{ 3 SPAZI}[<X>] [<X>] 

{ 5 SPAZI}[<X>]{ 3 SPAZI} 
[<X>]" 

3045 RETURN 


3050 GOSUB2 000:PRINT#1 ,"[<X>] 

{ 3 SPAZI}[<X>]{ 2 SPAZI} 
[< 3 X>]{ 3 SPAZI}[< 3 X>] 

II 

3051 GOSUB2000:PRINT#1," 

[< 2 X>] [< 2 X>] [<X>] 

{ 3 SPAZI}[<X>] [<X>] 

{ 4 SPAZI}" 

3052 GOSUB2000:PRINT#![<X>] 

[<X>] [<X>] [<X>] 

{ 3 SPAZI}[<X>] [<X>] 

{ 2 SPAZI}[< 2 X>]" 

3053 GOSUB2000:PRINT#1[<X>] 

[<X>] [<X>] [< 5 X>] [<X>] 

{ 3 SPAZI}[<X>]" 

3054 GOSUB2000:PRINT#1[<X>] 

{ 3 SPAZI}[<X>] [<X>] 

{ 3 SPAZI}[<X>]{ 2 SPAZI} 
[< 3 X>] " 

3055 RETURN 

3060 GOSUB2000:PRINT#1 

[< 3 X>] { 2 SPAZI}[< 3 X>] 
[<X>]{ 3 SPAZI}[<X>]" 

3061 GOSUB2000:PRINT#1[<X>] 

{ 6 SPAZI}[<X>]{ 2 SPAZI} 
[<X>]{ 3 SPAZI}[<X>]" 

3062 GOSUB2000:PRINT#1[<X>] 

{ 2 SPAZI}[< 2 X>] 

{ 2 SPAZI}[<X>]{ 2 SPAZI} 
[<X>]{ 3 SPAZI}[<X>]" 

3063 GOSUB2000:PRINT#1,"[<X>] 

{ 3 SPAZI}[<X>]{ 2 SPAZI} 
[<X>]{ 2 SPAZI}t<X>] 

{ 3 SPAZI}[<X>]" 

3064 GOSUB2000 :PRINT# 1 

[< 3 X>]{ 2 SPAZI}[< 3 X>] 
{ 2 SPAZI}[< 3 X>] " 

3065 RETURN 

3070 GOSUB2000 :PRINT#1,"[<X>] 

{ 5 SPAZI}[<X>]{ 3 SPAZI} 
[<X>]{ 2 SPAZI}[< 3 X>] " 

3071 GOSUB2000:PRINT#1 [<X>] 

{ 5 SPAZI}[<X>]{ 3 SPAZI} 
[<X>] [<X>]{ 4 SPAZI}" 

3072 GOSUB2000:PRINT#!,"[<X>] 

{ 5 SPAZI}[<X>]{ 3 SPAZI} 
[<X>] [<X>]{ 2 SPAZI} 

[< 2 X>] " 

3073 GOSUB2000:PRINT#1 [<X>] 

{ 5 SPAZI}[<X>]{ 3 SPAZI} 
[<X>] [<X>]{ 3 SPAZI}[<X>] 

3074 GOSUB2000:PRINT# 1 ," 

[< 5 X>]{ 2 SPAZI}[< 3 X>] 
{ 3 SPAZI}[< 3 X>] 

3075 RETURN 

3080 GOSUB2000:PRINT# 1 ," 

[< 3 X>]{ 3 SPAZI}[< 3 X>] 
{ 3 SPAZI}[< 3 X>] " 
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3081 GOSUB2000SPRINT#!,"[<X>] 

{ 3 SPAZI}[<X>] [<X>] 

{ 5 SPAZI}[<X>]{ 3 SPAZI} 
[<X>]" 

3082 GOSUB2000:PRINTfl[<X>] 

{ 3 SPAZI}[<X>] [<X>] 

{ 2 SPAZI}[< 2 X>] [<X>] 

{ 3 SPAZI}[<X>]" 

3083 GOSUB2000:PRINT# 1 

[< 5 X>] [<X>]{ 3 SPAZI} 

[<X>] [<X>]{ 3 SPAZI}[<X>]" 

3084 GOSUB2000sPRINT# 1 [<X>] 

{ 3 SPAZI}[<X>]{ 2 SPAZI} 

[< 3 X>]{ 3 SPAZI}[< 3 X>] 

II 

3085 RETURN 

3090 GOSUB2000SPRINT#! 

[< 4 X>] [< 5 X>] [< 5 X>] 

m 

3091 GOSUB2000sPRINT#l,"[<X>] 

{ 5 SPAZI}[<X>]{ 7 SPAZI} 
[<X>]{ 2 SPAZI}" 

3092 GOSUB2000sPRINT#l, " 

[< 3 X>]{ 2 SPAZI}[< 4 X>] 

{ 4 SPAZI}[<X>]{ 2 SPAZI}" 

3093 GOSUB2000sPRINT#l 

{ 4 SPAZI}[<X>] [<X>] 

{ 7 SPAZI}[<X>]{ 2 SPAZI}" 

3094 GOSUB2000sPRINT#l 

[< 4 X>]{ 2 SPAZI}[< 5 X>] 

{ 3 SPAZI}[<X>]{ 2 SPAZI}" 

3095 RETURN 

3100 GOSUB2000sPRINT#l 

[< 3 X>]{ 2 SPAZI}[< 5 X>] 
[< 5 X>]" 

3101 GOSUB2000sPRINT# 1 [<X>] 

{ 3 SPAZI}[<X>]{ 3 SPAZI} 
[<X>]{ 5 SPAZI}[<X>] 

{ 2 SPAZI}" 

3102 GOSUB2000SPRINT#! ,"[<X>] 

{ 3 SPAZI}[<X>]{ 3 SPAZI} 
[<X>]{ 5 SPAZI}[<X>] 

{ 2 SPAZI}" 

3103 GOSUB2000SPRINT#! ,"[<X>] 

{ 3 SPAZI}[<X>]{ 3 SPAZI} 
[<X>]{ 5 SPAZI}[<X>] 

{ 2 SPAZI}" 

3104 GOSUB2000SPRINT#! 

[< 3 X>]{ 4 SPAZI}[<X>] 

{ 5 SPAZI}[<X>]{ 2 SPAZI}" 

3105 RETURN 

3110 GOSUB2000sPRINT#l[<X>] 

{ 3 SPAZI}[<X>]{ 2 SPAZI} 

[< 3 X>]{ 2 SPAZI}[<X>] 

{ 3 SPAZI}[<X>]" 

3111 GOSUB2000sPRINT#l ," 

[< 2 X>]{ 2 SPAZI}[<X>] 

[<X>]{ 3 SPAZI}[<X>] [<X>] 


{ 3 SPAZI}[<X>]" 

3112 GOSUB2 000 sPRINT# 1 ,"[<X>] 

[<X>] [<X>] [<X>] 

{ 3 SPAZI}[<X>] [<X>] 

{ 3 SPAZI}[<X>]" 

3113 GOSUB2000 :PRINT# 1 ,"[<X>] 

{ 2 SPAZI}[< 2 X>] [<X>] 

{ 3 SPAZI}[<X>]{ 2 SPAZI} 
[<X>] [<X>] " 

3114 GOSUB2000SPRINT#! [<X>] 

{ 3 SPAZI}[<X>]{ 2 SPAZI} 

[< 3 X>]{ 4 SPAZI}[<X>] 

{ 2 SPAZI}" 

3115 RETURN 

3120 GOSUB2000sPRINT#1 ," 

[< 4 X>]{ 2 SPAZI}[< 3 X>] 

{ 2 SPAZI}I< 3 X>] 

{ 2 SPAZI}" 

3121 GOSUB2000 s PRINT# 1 ,"[<X>} 

{ 3 SPAZI}[<X>]{ 2 SPAZI} 
[<X>]{ 2 SPAZI}[<X>] 

{ 3 SPAZI}[<X>] " 

3122 GOSUB2000SPRINT#! [<X>] 

{ 3 SPAZI}[<X>]{ 2 SPAZI} 
[<X>]{ 2 SPAZI}[<X>] 

{ 5 SPAZI}" 

31.23 GOSUB2 000 s PRINT#1 [<X>] 

{ 3 SPAZI}[<X>]{ 2 SPAZI} 
[<X>]{ 2 SPAZI}[<X>] 

{ 3 SPAZI}[<X>] " 

3124 GOSUB2000sPRINT#1 

[< 4 X>]{ 2 SPAZI}[< 3 X>] 

{ 2 SPAZI}[< 3 X>] 

{ 2 SPAZI}" 

3125 RETURN 

3200 Il =INT(Y/1 000) sJl =Y-I1 *1 000 
SI2=INT(J1/100)sJ2=J1-12*10 
0 s13 = INT(J2/10) 

3210 I4=J2-I3*10 

3211 IFI2 = 0THENI2 = 1 0 

3212 IFI3=0THENI3=10 

3213 IF14=0THENI4=10 

3214 GOSUB2000sX=IlSGOSUB6000sGO 
SUB2000 s X=12 s GOSUB6000 s GOSU 
B2000sX=I3 SGOSUB6000 

321 5 GOSUB20 00 s X=14 sFL=ls GOSUB60 
00 

3314 GOSUB2000sX=IlSGOSUB7000sGO 
SUB2000 s X=12 s GOSUB7000 s GOSU 
B2000 s X=13 SGOSUB7000 

3315 GOSUB2000sX=14sFL=1 SGOSUB70 
00 

3414 GOSUB2000sX=IlsGOSUB8000sGO 
SUB2 000 s X=I2 s GOSUB8000sGOSU 
B2000 s X=13 SGOSUB8000 

3415 GOSUB2 000sX=I4sFL=1 SGOSUB80 
00 

3514 GOSUB2000sX=IlsGOSUB9000sGO 
SUB2000 sX=12 SGQSUB9000 sGOSU 
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B2000:X=I3:GOSUB9000 

3515 G0SUB2000 :X=14 :FL=1:GOSUB90 
00 

3614 GOSUB2000 : X= Il : GOSUBl 0000 : G 
OSUB2000:X=I2:GOSUBl 0000:GO 
SUB2000:X=I3 

3615 GOSUB1 0000 :GOSUB2000:X=14 : F 
L=1 :GOSUBl 0000 :RETURN 

4000 PRINT"{CLR}{GIU'}{ 3 DES}QU 
ESTO PROGRAMMA":PRINT" 

{ 6 DES}STAMPA UN" 

4020 PRINT"{ 2 DES}{PUR}CALENDAR 
IO MENSILE{BLU}" 

4030 PRINT"{GIU 1 }{ 6 DES}lMPOSTA 
IL":PRINT"{ 4 DES}{RED}MES 
E{BLU} E L'{RED}ANNO{BLU}" 

4035 PRINT"{ 2 DES}CHE VUOI STAM 
PARE":PRINT"{ 2 SPAZI}(ESEM 
PIO: {RED}12,1983{BLU}) 

{PUR}{GIU'}":PRINTTAB(5); 

4060 INPUTM0,Y 

4080 PRINT" { 2 GIU'H 4 SPAZI} 

{BLU}GRAZIE! ADESSO":PRINT" 
{PUR} ACCENDI{BLU} LA STAMP 
ANTE" 

4085 PRINT"{ 4 SPAZI}E DOPO SCRI 
VI":PRINTTAB(9)"{PUR}OK 
{GIU 1 }":INPUTR$ 

4110 IFR$<>"OK"THEN4080 

4130 PRINT"{BLU}STAMPA{GIU'}":FO 
RI=lTO800:NEXT:RETURN 

4999 PRINT#1,CHR$(15)" " 

5000 GOSUBl620 

5001 CLOSEl:END 

6000 ONXGOSUB2011,2021,2031,2041 
,2051 , 2061 , 2071 , 2081 , 2091 , 2 
001 

6010 IFFLOl THENPRINT#1 ," " ; :RET 
URN 

6020 PRINT#!,"":FL=0:RETURN 

7000 ONXGOSUB2012,2022,2032,2042 
,2052,2062,2072,2082,2092,2 
002 

7010 IFFLOl THENPRINTfl ," " ; : RET 
URN 

7020 PRINT#1,"":FL=0:RETURN 

8000 ONXGOSUB2013,2023,2033,2043 
,2053,2063,2073,2083,2093,2 
003 

8010 IFFLOl THENPRINT#1 ," " ; :RET 
URN 

8020 PRINT#!,:FL=0:RETURN 


Programma 3 

80 DIMM$(12) ,W$(7) :FOR1 = 1TO12 : RE 
ADM$(I):NEXTI:FORI=lT07:READW 
$(I):NEXTI 


9000 ONXGOSUB2014,2024,2034,2044 
,2054,2064,2074,2084,2094,2 
004 

9010 IFFLOl THENPRINT#1 , " " ; :RET 
URN 

9020 PRINT#!,"":FL=0:RETURN 
10000 ONXGOSUB2015,2025,2035,204 
5,2055,2065,2075,2085,2095 
,2005 

10010 IFFLOl THENPRINT#1 ," ";:RE 
TURN 

10020 PRINT#1FL=0:RETURN 
11000 ONXGOSUB2000,2111,2021,203 
1:PRINT#!," "; 

11010 ONX1GOSUB2000,2001 , 201.1 , 20 

21.2031.2041.2051.2061.207 

1.2081.2091 

1 1 020 IFFLOl THENPRINT#1 ," 

{ 2 SPAZI}";:RETURN 
11030 FL=0:PRINT#1,"":RETURN 
12000 ONXGOSUB2000,2112,2022,203 
2:PRINT#1," "; 

12010 DNX1GOSUB2000,2002,201 2,20 

22.2032.2042.2052.2062.207 

2.2082.2092 

1 2020 IFFLOl THENPRINT#1 ," 

{ 2 SPAZI}";:RETURN 
12030 FL=0:PRINT#1,"":RETURN 
13000 ONXGOSUB2000,2113,2023,203 
3:PRINT#!," "; 

13010 ONX1GOSUB2000,2003,2013,20 

23.2033.2043.2053.2063.207 

3.2083.2093 

1 3020 IFFLOl THENPRINT#1 ," 

{ 2 SPAZI}";:RETURN 
1 3030 FL=0:PRINT#1 ,"":RETURN 
14000 ONXGOSUB2000,2114,2024,203 

4 :PRINT#1," "; 

14010 ONX1GOSUB2000,2004,2014,20 

24.2034.2044.2054.2064.207 

4.2084.2094 

1 4020 IFFLOl THENPRINTfl , " 

{ 2 SPAZI}";:RETURN 
14030 FL=0:PRINT#1,"":RETURN 
15000 ONXGOSUB2000,2115,2025,203 

5 :PRINT#1," "; 

15010 ONX1GOSUB2000,2005,2015,20 

25.2035.2045.2055.2065.207 

5.2085.2095 

1 5020 IFFLOl THENPRINT#1 , " 

{ 2 SPAZI}";: RETURN 
15030 FL=0:PRINT#!,"":RETURN 


90 SYS65 51 7 :A=PEEK(781 ) :IFA=40TH 
ENPOKE532 81 ,1 

100 PRINT"{CLR}{GIU'}{ 3 SPAZI} 
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QUESTO PROGRAMMA":PRINT" 

{ 6 DES}STAMPA UN" 

105 PRINT'*{ 2 DES} {PUR}CALENDARI 
0 MENSILE{BLU}{GIU'}" 

110 PRINT"{ 6 DES}IMPOSTA IL":PR 
INT"{ 4 DES}{RED}MESE{BLU} E 

L'{RED}ANNO{BLU}" 

111 PRINT"{ 2 DES}CHE VUOI STAMP 
ARE":PRINT"{DES}(ESEMPIO: 
{RED}12,1983{BLU}){PUR} 

{ 2 GIU'}" 

120 PRINTTAB(5) ; :INPUTMO,Y 

130 PRINT"{ 2 GIU'}{ 4 SPAZI} 
{BLU}GRAZIE ! ADESSO":PRINT" 
{PUR}ACCENDI{BLU} LA STAMPAN 
TE" 

131 PRINT"{ 4 DES}E DOPO SCRIVI" 
:PRINTTAB(9)"{PUR}OK{GIU'}": 
INPUTR$ 

151 IFR$O"0K"THENl 30 
154 PRINT"{BLU}STAMPA{GIU'}":FOR 
1=1TO800:NEXT:GOSUB1292:OPEN 
1,4 

202 PRINTil,CHR$(14)"{ 3 SPAZI} 

";M$(M0);" ";Y:GOSUB1 600 :GOS 
UBI 700 :FORD=l TOEl : J1 =Jl +1 
210 GOSUBl 050 :IFD<1 0THENG$ = " " 

213 IFD>=10THENG$="" 

214 IFDl=1THENPRINTfl ,CHR$(15)" 

{ 3 SPAZI}"W$(Di);CHR$(14)G$ 

;"{RVS}"D"{OFF}";CHR$(15)"(" 
;J1 ;»)" 

215 IFDl=lTHENGOSUBl600 

217 IFDl=1THEN220 

219 PRINTil,CHR$(15)"{ 3 SPAZI} 
"W$(Di);CHR$(14)G$;D;CHR$(15 
)"(";Jl;")":GOSUBl600 

220 NEXTD 

1000 CLOSEl:END 

1 050 IFM0 = 1THENM0 = 13:Y=Y-1: GOTO! 
080 

1 060 IFMO = 2THENMO = 14:Y=Y-1 
1080 M=M0-2 

1100 Di=INT(2.6*M-0.2)+D+Y-1 900 + 
INT((Y — 1 900)/4) 

1150 DI=D1+INT(19/4)-2*1 9 
1200 Di=Dl-INT(Dl/7)*7+1 
1210 IFM0=4ORM0=9THENDl=Dl+1 
1230 IFM0=13THENM0=1:Y=Y+1:GOTOl 
245 

1 240 IFM0 = 14THENM0 = 2 :Y=Y+1 :Dl=Dl 
+ 1 

1244 IFDl=8THENDl=1 

1245 IF(Y=2100ANDM0>=3)OR(Y>2100 

)THENDl=Dl- 1 :IFDl=0THEND1=7 

1247 IF(Y=2200ANDM0>=3)OR(Y>2200 
)THENDl=D1-1 :IFDl=0THENDl=7 


1 249 IF(Y= 2300ANDM0> = 3)OR(Y>2300 
)THENDl=D1-1 :IFDl=0THENDl=7 

1250 RETURN 

1292 IFM0=1ORM0=3ORM0=5ORM0=7ORM 
0=8ORM0=l0ORM0=l2THENEI=31 

1293 IFM0=4ORM0=6ORM0=9ORM0=l1TH 
ENEI=30 

1 294 IFM0 = 2ANDY/40 INT ( Y/4) THENE 
1 =28 

1295 IFM0=2ANDY/4=INT(Y/4)THENGO 
SUBÌ 400 

1296 RETURN 

1400 IF(Y/l00=INT(Y/100))AND(Y/4 
OOOINT (Y/400) ) THENE 1 =28:GO 
TOl410 
1405 El=29 
1410 RETURN 

1 600 FORI = 1T020 :PRINTil,CHR$(15) 

" ";:NEXTI 

1 605 FORK=1TOl8:PRINTil 
" :NEXTK:PRINTil 
1610 RETURN 
1700 IFM0=1THENJ1=0 
1702 IFM0=2THENJl=31 
1704 IFM0=3THENJ1=59 

1706 IFM0=4THENJl=90 

1707 IFM0=5THENJl=120 
1709 IFM0=6THENJl=151 
1711 IFM0=7THENJ1=181 
1713 IFM0=8THENJl=212 
1715 IFM0=9THENJ1=243 
1717 IFM0=10THENJ1=273 
1719 IFM0 = 1 1 THENJl=304 
1721 IFM0=12THENJ1=334 

1 723 IFY/40 INT (Y/4) THENl 730 
1 725 IF(Y/l 00 = INT(Y/100))AND (Y/4 
000 INT (Y/4 00) ) THENGOTOl 730 

1727 IF(Y/4=INT(Y/4))AND(M0>=3)T 
HENJ1=J1+1 
1730 RETURN 

2000 DATA"{ 2 SPAZI}GENNAIO"," F 
EBBRAIO","{ 4 SPAZ1}MARZO", 
"{ 3 SPAZ1}APRILE" 

{ 3 SPAZI}MAGGIO" 

2010 DATA"{ 3 SPAZI}GIUGNO"," 

{ 3 SPAZ1}LUGLIO" 

{ 3 SPAZ1}AGOSTO","SETTEMBR 
E","{ 2 SPAZI}OTTOBRE" 

2020 DATA" NOVEMBRE"," DICEMBRE" 

2030 DATA"{ 2 SPAZI}{RVS}DOMENIC 
A{OFF}","{ 4 SPAZ1}LUNEDI", 
"{ 3 SPAZ1}MARTEDÌ"," MERCO 
LEDI" ,"{ 3 SPAZI}GIOVEDÌ" 

2040 DATA"{ 3 SPAZI}VENERDÌ"," 

{ 4 SPAZI}SABATO" 
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Programma 4 


3 SYS65517:A=PEEK(781):IFA=40THE 
NPOKE53281 ,1 

5 0PEN1,4:DIMW4(3):GOSUBl51 0:1 = 1 
: J=2 

7 PRINTil,CHR$(14)SPC(15)"BUON " 
;Y:PRINT|1 

10 PRINTil , CHR$(14)SPC(8)"GENNAI 
0"SPC (1 3) "FEBBRAIO". 

12 GOSUBl 009 :GOSUBl000 :GOSUBl 012 
:C0=6 :GOSUBl 01 9:GOSUBl 000-.GOS 
UBI 022 

1 5 M0 = I:M8 = 1:GOSUB292 :GOSUB2 0 :GO 
T03 5 

20 D=1:GOSUBl050:W2=8-Dl:W4(M8)= 
W2+1:GOSUB321 
22 IFDl=7THEN30 

25 FORD=2TOW2-.GOSUBl 050:GOSUB331 
:NEXTD 
30 RETURN 

35 GOSUB990 :M0 =J:M8 = 2 :GOSUB292 :G 
OSUB20 

44 W3=l 

45 M0 = 1 :M8 = l :GOSUB292:GOSUB200 

46 IFW4(2)=9THENPRINT#1,CHR$(15) 
SPC (1) ; 

50 GOSUB991 :M0=J:M8 = 2:GOSUB292 :G 
OSUB200 

56 IFW3 = 1ANDW4(1)>9THENPRINT#1 ,C 
HR$(15)SPC(0) ; 

57 IFW3 = 1ANDW4{1)<10THENPRINTI1 , 
CHR$(15)SPC (1 ); 

58 IFW3=4ANDW4(2)>30THENPRINT#1, 
CHR$(15)SPC(0); 

65 W3=W3+1 

70 IFW3<C0THEN45 

71 PRINTil," " 

72 IFI=1THEN86 

73 IFI=3THEN96 

74 IFI=5THENl06 

75 IFI=7THEN116 

76 IFI=9THEN126 

77 IFI=11THEN199 

86 PRINTil ,CHR$(14)SPC(9)"MARZO" 
SPC(1 5)"APRILE" 

88 1 = 3 :J=4:GOTOl2 

96 PRINTil,CHR$(14)SPC(8)"MAGGIO 
"SPC(15)"GIUGNO" 

98 1=5 :J=6:GOT012 

1 06 PRINTil ,CHR$(14)SPC(8)"LUGLI 
0"SPC(15)"AGOSTO" 

108 1 = 7 :J=8:GOTOl2 
110 PRINT"{DES}PLEASE TYPE IN TH 
E":PRINT"{ 3 DES}{REDjMONTH 
{BLU} AND {RED}YEAR{BLU}" 

1 16 PRINTil ,CHR$(14)SPC(7)"SETTE 
MBRE"SPC(13)"OTTOBRE" 

118 1=9 :J=10:GOTOl2 


1 26 PRINTil,CHR$(14)SPC(7)"NOVEM 
BRE"SPC(13)"DICEMBRE" 

1 28 1=11 :J=12 :GOTOl2 


199 PRINTil,CHR$(15)SPC(1):CLOSE 
1 :END 

200 D4=W4(M8):D7=W4(M8)+6 

205 D=D4:GOSUBl050 

210 IFDl<>1THENPRINT"PERCHE' Di = 
";Dl 

212 IFM8=1AND(D+l)<1OTHENGOSUB52 
8 

21 3’ IFM8 = 1 AND (D+l ) >9THENGOSUB530 

214 IFM8=2AND(D+l)<1OTHENGOSUB42 
8 

215 IFM8=2ANDD4>=30ANDD4<=ElTHEN 
GOSUB433:GOT0217 

216 IFM8=2AND(D+l)>9THENGOSUB430 

217 FORD=D4+lTOD7:GOSUBl050:GOSU 
B331:NEXTD 

220 W4(M8)=D7+1 

225 RETURN 

292 IFM0 = 1 ORM0 = 3ORM0 = 5ORM0=7ORM0 
=8ORM0=l0ORM0=l2THENEI=31 

293 IFM0 = 4ORM0=6ORM0 = 9ORM0 = l1 THE 
NEI=30 

294 IFM0 = 2ANDY/40INT ( Y/4) THENEl 
= 28 

295 IFM0=2ANDY/4=INT(Y/4)THENGOS 
UBI 400 

296 RETURN 

321 IFDl=7THENPRINT|1,CHR$(15)SP 
C(36);D;:GOTO330 

322 IFDl=6THENPRINT|1,CHR$(15)SP 
C(31);D;:GOTO330 

323 IFDl=5THENPRINT|1,CHR$(15)SP 
C(26);D;:GOTO330 

324 IFDl=4THENPRINT|1,CHR$(15)SP 
C(21);D;:GOTO330 

325 IFDl =3THENPRINT|1 ,CHR$(15)SP 
C(16);D;:GOTO330 

326 IFDl =2THENPRINT|1,CHR$(15)SP 
C (11 ) ;D;:GOTO330 

327 IFDl=1THENPRINTll,CHR$(15)SP 
C(6);D;:GOTO330 

328 PRINTil,CHR$(15)SPC(3);D;:GO 
TO330 

329 PRINTil,CHR$(15)SPC(2);D; 

330 RETURN 

331 IFD>E1THENPRINTll,CHR$(15)SP 
C(5);:GOTO350 

332 IFDl =1 ANDD < = 9 THE NPRI NT 11 ,D; : 
GOTO3 50 

333 IFDl=1ANDD>9THENPRINTll,D; :G 
OTO350 

335 IFD<=9THENPRINT|1,CHR$(15)SP 
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C (2);D;:GOTO3 50 
336 PRINTil ,CHR$(15)SPC( 1 );D; 

350 RETURN 

428 IFD>ElTHENPRINTil,CHR$(15)SP 
C(9);:G0T0435 

429 G0T0328 

430 IFD>ElTHENPRINTil ,CHR$(15)SP 
C (9); :G0T043 5 

431 G0T0329 

433 PRINTil,CHR$(15)SPC(1) ;D; 

435 RETURN 

528 IFD>E1THENPRINTil ,CHR$(1 5) SP 
C (9);:G0T0535 

529 G0T0532 

530 IFD>E1THENPRINTil ,CHR$(15)SP 
C (9); :G0T0535 

531 G0T0533 

532 PRINTil,CHR$(15)SPC(5);D;:GO 
T0535 

533 PRINTil,CHR$(15)SPC(4);D; 

535 RETURN 

990 PRINTil,CHR$(15)SPC(3);:GOTO 
992 

991 PRINTil,CHR$(15)SPC(6); 

992 RETURN 

1000 PRINTil,CHR$(15)SPC(7); 

1001 RETURN 

1 009 PRINTil,CHR$(15)SPC(3) ; 

1010 PRINTil,"{ 4 SPAZI}D 

{ 4 SPAZI} L{ 4 SPAZI}M 
{ 4 SPAZI}M{ 4 SPAZI}G 
{ 4 SPAZI} V{ 4 SPAZI}S"; 

1011 RETURN 

1012 PRINTil,"{ 4 SPAZI}D 

{ 4 SPAZI} L{ 4 SPAZI}M 
{ 4 SPAZI}M{ 4 SPAZI}G 
{ 4 SPAZI}V{ 4 SPAZI} S" 

1013 RETURN 

1019 PRINTil ,CHR$( 15) SPC (3) ; 

1020 PRINTil,"{ 4 SPAZI}[<T>] 

{ 4 SPAZI}[<T>]{ 4 SPAZI} 
[<T>]{ 4 SPAZI}[<T>] 

{ 4 SPAZI}[<T>]{ 4 SPAZI} 

[<T>]{ 4 SPAZI}[<T>] 

1021 RETURN 

1022 PRINTil,"{ 4 SPAZI}[<T>]' 

{ 4 SPAZI}[<T>]{ 4 SPAZI} 
[<T>]{ 4 SPAZI}[<T>] 

{ 4 SPAZI}[<T>]{ 4 SPAZI} 
[<T>]{ 4 SPAZI}[<T>]" 

1023 RETURN 

1050 IFM0=1THENM0=13:Y=Y-1:GOT01 
080 

1 060 IFM0 = 2THENM0 = 1 4:Y=Y-1 
1080 M=M0-2 

1100 Di=INT(2.6*M-0.2)+D+Y-1900+ 
INT((Y-l900)/4) 


1150 Di =Dl+INT(19/4)-2*19 
1200 Di=Dl-INT(Di/7)*7+1 
1210 IFM0=4ORM0=9THENDl=Dl+1 
1230 IFM0=13THENM0=1:Y=Y+1:G0T01 
250 

1 240 IFM0 = 14THENM0 = 2:Y=Y+1 : Di =Dl 
+1 

1244 IFDl=8THENDl=1 
1 245 IF(Y=21OOANDMO>3)OR(Y>21 00) 
THENDl=D1-1 :IFDl=0THENDl =7 
1247 IF(Y=2200ANDM0>3)OR(Y>2200) 

THENDl=Dl-1 :IFDl=0THENDl=7 

1249 IF(Y=2300ANDM0>3)OR(Y>2300) 
THENDl=Dl-1 :IFDl=0THENDl=7 

1250 RETURN 

1400 IF(Y/l00=INT(Y/l00))AND(Y/4 
00OINT (Y/4 00) ) THE NEI =28:GO 
TOl410 
1405 El=29 
1410 RETURN 

1510 PRINT"{CLR}{GIU’}{ 3 DES}QU 
ESTO PROGRAMMA":PRINT" 

{ 6 DES}STAMPA UN" 

1520 PRINT"{ 2 DES}{PUR}CALENDAR 

10 ANNUALE{BLU}{GlU'}" 

1530 PRINT"{ 3 DES}IMPOSTA L' 

{PUR}ANNO{BLU}PRINT" 

{ 2 DES}CHE VUOI STAMPARE" 
1535 PRINT"{ 3 DES}(ESEMPIO: 

{PUR}1984{BLU}){ 2 GIU’}":P 
RINTTAB(6); : INPUTY 
1570 PRINT"{GIU'}{ 4 DES}GRAZIE! 

ADESSO":PRINT"{DES}{PUR}AC 
CENDI{BLU} LA STAMPANTE" 
1573 PRINT"{ 4 DES}E DOPO SCRIVI 

11 

1575 PRINTTAB(9)"{PUR}OK{BLU} 
{GIU'}" 

1580 INPUTR$ 

1 585 IFR$ <> "OfC'THENl 570 
1590 PRINT"STAMPA{GIU'}":FORI=lT 
08 0 0 :NEXT:RETURN 


Aspettiamo 
i tuoi lavori 
migliori! 
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Zapi! 



Facendo partire questo eccitante gioco 
d'azione, ti verranno richiesti il numero di 
giocatori ed i rounds che ciascuno di essi do¬ 
vrà giocare. 

All'inizio di ogni partita viene richiesto il livel¬ 
lo di difficoltà. Lo scopo del gioco è di rag¬ 
giungere e mangiare il maggior numero pos¬ 
sibile di oggetti in due minuti, evitando gli 
asterischi. 


10 print"{clr}" 

20 DIMPL ( 6) , R ( 5) 

30 FORY=1T05:FORX=lT06: Z(X,Y)=0 : 

NEXTX:NEXTY 
40 C=30720:TB=0:TS=0 
50 POKE36879,239 
60 CP=0:G0T0810 
70 REM 
90-CP=1 

100 FORT=lT02000:NEXTT 
110 PRINT"{CLR}" 

115 PRINT"{BLK }{ 5 SPAZI}{RVS} 
£[<*>]£[<*>]£[<*>]£[<*>]£ 
[<*>]£[<*>]" 

120 PRINT"{OFF}{ 5 SPAZI}[<*>] 

{RVS}ISTRUZIONI{OFF}£" 

130 PRINT"{ 6 SPAZI}[<*>]£[<*>] 
£[<*>]£[<*>]£[<*>]£ " 

140 PRINT m TGIU'}TBLU}{ 3 SPAZI} 
TU HAI{ 2 SPAZI } 2 MINUTI":PR 
INT"PER TOTALIZZARE IL TUO 
{ 2 SPAZI}MIGLIOR{ 2 SPAZI} 
PUNTEGGIO" 

150 PRINT"{PUR}{GIU'}{ 5 SPAZI} 
MOVIMENTO:":PRINT"{GIU'} CRS 
R GIU' =SINISTRA" : PRINT,". CRSR 
DES.=DESTRA" 

155 PRINT"{ 8 SPAZI}F5=SU" 

160 PRINT"{ 8 SPAZI}F7 =GIU'" 

165 FORT=lT06000:NEXT:PRINT" 
{CLR}" 

170 PRINTTAB(7)"{ 2 GIU'}{WHT}PU 
NTEGGI" 

180 PRINTTAB(10)"{BLK}W=1 " 

190 PRINTTAB(10)"{CYN}Q=2" 

200 PRINTTAB(10)"{YEL}Z=3" 

210 PRINTTAB(10)"{RED}S=5" 

220 PRINTTAB(10)"{WHT}A=1 0" 


Se un asterisco viene sormontato, tu verrai 
‘zappato’, e il round in corso avrà termine. 
A questo puntò, se vi sono altri giocatori o se 
ci sono altri rounds disponibili, il gioco conti¬ 
nuerà. 

Un ultimo avviso: quando la pedina si mette 
in moto, non è più possibile fermarla, ma so¬ 
lo cambiare la sua direzione. 

Buona 'zappata'!! 


230 PRINT"{GIU 1 }{ 6 SPAZIjTU SEI 
: {BLU}{RVS} {OFF}" 

240 PRINT"{GIU'}{ 3 SPAZl}NON MA 
NGIARE { WHT}*{BLU} O":PRINT" 
{GIU'}{ 2 SPAZIjTU SARAI 
{RED}'ZAPPATO’{BLU}" 

250 PRINT"{WHT}{ 2 GIU'} 

{ 4 SPAZI}PREMI UN TASTO" 

260 GETA$:IFA$=""THEN260 
270 PRINT"{CLR}{WHT} QUANTI ROUN 
DS{ 2 SPAZI} (1-5)" 

280 INPUTRN:IFRN<10RRN>5THENPRIN 
T"HUH?":FORT=lTOl000:NEXT:GO 
TO2 70 

290 PRINT"{GIU'}QUANTI GIOCATORI 
( 1 - 6 )" 

300 INPUTPN:IFPN<1ORPN>6THENPRIN 
T"HUH?":FORT=lTOl000:NEXT:GO 
TO290 

310 FORR=lTORN 

32 0 FORP=lTOPN:PRINT"{BLU}{GIU' } 
GIOCATORE #";P 

330 PRINT"{GIU’}QUALE LIVELLO (0 
-4)":INPUTS 

360 IFS>4ORS<0THENPRINT"HUH?":FO 
RT=1TOl000:NEXT:GOTO330 
370 PRINT"{CLR}{BLU}{RVS}PUNTEGG 
IO DA BATTERE:";TB:PRINT" 
{RVS}LIVELLO:";SL 
380 PRINT"{RVS}GIOCATORE #";PB 
390 FORT=1T02000 :NEXTT:PRINT" 
{CLR}" 

400 DEFFNA(L)=INT(RND(1)*L)+7702 

410 FORF=lTO40-2*S:D=FNA(483) 

4 20 POKED,87:POKED+C,0 :NEXTF 
430 FORF=lT02 5 :D=FNA(4 83) 

440 POKED,81 :POKED+C,3:NEXTF 
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450 F0RF=1T010+4*S:D=FNA(505) 

460 POKED,42 :POKED+C,4:NEXTF 
470 FORF = 1TOl9 :D=FNA(483) 

480 POKED,90:POKED+C,7:NEXTF 
490 FORF=1TOl4 :D=FNA(483) 

500 POKED,83:POKED+C,2rNEXTF 
510 FORF=lT09+S:D=FNA(505) 

520 POKED,65:POKED+C,1:NEXTF 

530 B=7932 

540 TI$="000000" 

550 PRINT"{HOME}TEMPO:120-INT( 
TI/60);"{SIN}{ 2 SPAZI}" 

560 IFTI/60>=120THENGOTO930 
570 POKEB,160:POKEB+C,6 
580 IFB<7636THENB=8229+B-7635 
585 IFB>8229THENB=7636+B-8230 
590 IFPEEK(197)=31THENH=190 :DR=- 
1:GOTO630 

600 IFPEEK(1 97)=23THENH = 200 :DR=1 
:GOTO630 

610 IFPEEK(197)=55THENH=210:DR=- 
22:GOTO630 

620 IFPEEK(1 97)=63THENH= 220 :DR= 2 
2 

630 POKE36878,1 5 :POKE36876,H 
640 FORT=1T030-5*S:NEXTT 
650 POKEB,32:B=B+DR 
660 SC=0 

670 IFPEEK(B)=42THENGOTO790 
680 IFPEEK(B)=87THENSC=1:GOTO740 

690 IFPEEK(B)=81THENSC=2:GOTO740 

700 IFPEEK(B)=90THENSC=3:GOT0740 

710 IFPEEK(B)=83THENSC=5:GOTO740 

720 IFPEEK(B)=65THENSC=10:GOTO74 
0 

730 GOTO760 
740 TS=TS+SC 

750 POKE36878,1 5:POKE36876,1 60+P 
EEK(B) 

760 FORT=lT030-5*S:NEXTT 

770 PRINT"{HOME}{GIU'}PUNTI=";TS 

780 GOTO550 

790 POKE36878,1 5 

800 FORPI = 1T04 0 :POKE36876,1 80-PI 
:NEXTPI 

810 PRINT"{PUR}{DES}{ 6 GIU'} 

{ 4 £}{SPAZI}{ 4 £}{SPAZI} 

{ 4 £}{SPAZI}{ 2 £}{SPAZI} 

{ 2 £}" 

820 PRINT"{DES}{ 4 £}{SPAZI} 

{ 4 £}{SPAZI}{ 4 £}{SPAZI} 

{ 2 £}{SPAZI}{ 2 £}" 

830 PRINT"{DES}{ 3 SPAZl}£ 

{SPAZI}£{ 2 SPAZI}£{SPAZI} 


£{ 2 SPAZI}£{SPAZI} 

T 2 £}{SPAZI}{ 2 £}" 

840 PRINT" {DES} { 2 SPAZI }jì 
{ 2 SPAZI}{ 4 £}{SPAZI} 

{ 4 £}{SPAZI}} 2 £}{SPAZI} 

{ 2 £}" 

850 PRINT"{DES} £{ 3 SPAZI} 

{ 4 £}{SPAZlT{ 4 £}{SPAZI} 

{ 2 £}{SPAZI}{ 2 £}" 

860 PRINT"{DES}{ 4 £}TSPAZl}£ 

{ 2 SPAZI}£{SPAZI}£" 

870 PRINT" {DEST{ 4 £} {SPAZIÒ 
{ 2 SPAZI}£{SPAZI}£ 

{ 4 SPAZI}! 2 £}{SPAZI} 

{ 2 £}{BLU}" 

880 IFCP=0THEN70 

890 POKE36878,0 :POKE36876,0 

900 FORT=lT02000:NEXTT:PRINT" 

{CLR}" 

910 PRINT"{WHT}{GIU'}{RVS}HAI FI 
NITO IN";INT(TI/60)-3;"{SIN} 
SEC. {OFF}" 

920 GOTO970 

930 POKE36878,15:FORAC=lTO80:POK 
E36876,210-AC:NEXTAC 
940 POKE36876,0 :POKE3687 8,0 
950 PRINT"{CLR}" 

960 PRINT"{HOME}{ 4 GIU’}{BLU} 

{RVS}IL TEMPO{ 2 SPAZI}E' TE 
RMINATO" 

970 PRINTTAB(6)"{GIU'}{RVS}{WHT} 
PUNTI=";TS 

980 Z(P,R)=Z(P,R-1)+TS 
990 IFTS>TBTHENTB=TS:SL=S:PB=P 
1000 PRINT"{GIU'}{BLK}ROUND 
R;"{GIU'}" 

1010 FORX=1TOPN 

1020 PRINT"{BLK}GIOCATORE #";X;" 

:";Z(X,R) 

1030 NEXTX 

1040 TS=0:DR=0:H=0:PRINT"{GIU'}" 

1050 NEXTP:NEXTR 
1060 END 
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PERSONAL COMPUTER : 
le prime, le migEori! 


PERSONAL SOFTWARE 



OBI» 1 ’ 


ANNO 7 M M 

senEMew 


IH 

SHARP W 5 ° 

PHILIPS P20C 


BITEST: 


APRICOJ 

COMPUTER 

giochiamo A °o 
COH IL Vie 20 


PL/BlTt 

compila 1 ®"! 

PER APPI* 
SOFTEST» 
APPLE 
WORKS 


BIT: La più letta, la prima e più diffusa 
TEST: Apricot Computer 
SUPERBIT - 64 pagine di programmi 
per i vostri personal computer. 


Con tutta la competenza 


jwnw** 

dbase i-a-a 


L’unica che presenta software 
per tutti i personal: 

Commodore, Apple, Sinclair, T.I., HP, 
Sharp, Sega, Olivetti, ecc. 






